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Preface 


The POSTSCRIPT page description language provides a device in- 
dependent standard for representing the printed page. This book 
is designed to be a companion piece to the POSTSCRIPT Lan- 
guage Reference Manual. It presents illustrative material to aid 
in understanding the POSTSCRIPT language. The tutorial infor- 
mation presented here has been deliberately separated from the 
reference manual to help ensure that the defining document of- 
fers a precise, unambiguous definition of the language and asso- 
ciated graphics imaging model. In all cases, when questions of 
definition or precise specification are raised, the POSTSCRIPT 
Language Reference Manual is the final word. 


This book actually contains two documents: the POSTSCRIPT 
Language Tutorial and the POSTSCRIPT Language Cookbook. 


The tutorial provides an easy, informal introduction to the 
POSTSCRIPT language and its graphics primitives. The tutorial’s 
style and level of presentation is aimed at programmers who 
wish to design and implement applications, such as word 
processing packages, graphics illustrators, and CAD/CAM draw- 
ing systems. It is interactively oriented, and written with the as- 
sumption that you, the reader, already know how to program. 
You are encouraged to try variations of the examples presented 
in the tutorial on a POSTSCRIPT printer as you work your way 
through the book. 


The cookbook is, as its name suggests, a collection of programs 
that are offered as examples of POSTSCRIPT usage. These 
samples have been chosen both as illustrations of the functional 
range of POSTSCRIPT and as useful ingredients for inclusion in 
application packages that you design. The cookbook samples 
demonstrate techniques for rendering quality graphics, achieving 
effective typography with digital fonts, and maintaining true 
device independence. Again, you are encouraged to experiment 
with variations of these samples on a POSTSCRIPT printer as you 
develop your own applications. 


The principal authors of this material are Linda Gass and John 
Deubert. The final organization and the majority of the material 
for the POSTSCRIPT Language Tutorial is due to John Deubert. 
Ed Taft reviewed and proofread the material during the later 
stages of its production. Linda Gass designed and developed the 
POSTSCRIPT Language Cookbook and she is the principal author 
of both the examples and the explanatory text. The seminal idea 
of the cookbook is due to Doug Brotz and several of the illustra- 
tions in the cookbook are due to John Warnock. Andy Shore 
proofread the text and POSTSCRIPT sample programs. The book 
design was specified by Bob Ishi and was implemented by Andy 
Shore and Brian Reid. The index was compiled by Steven 
Sorensen. 


The art of printing is rich in tradition, and the technology for 
producing the printed page has evolved over centuries. We at 
Adobe Systems are pleased to offer POSTSCRIPT as a tool for 
printing in the electronic age. I believe that this tutorial material 
will significantly enhance your ability to explore this exciting 
technology and help you enjoy the process of discovering the 
world of electronic printing. 


Charles Geschke 
August 1985 


CHAPTER 1 


INTRODUCTION 


The POSTSCRIPT language is a programming language designed 


A to convey a description of virtually any desired page to a printer. 
; It possesses a wide range of graphic operators that may be com- 
AY bined in any manner. It contains variables and allows the com- 
Ag bining of operators into more complex procedures and functions. 
rN POSTSCRIPT page descriptions are programs to be run by an in- 

terpreter. POSTSCRIPT programs are usually generated by appli- 
Kg cation programs running on other computers. However, many 


POSTSCRIPT printers, including the Apple LaserWriter, have an 
interactive state in which the user may program directly in 
POSTSCRIPT (see section 12.1). 


1.1 POSTSCRIPT AS A PAGE DESCRIPTION LANGUAGE 


POSTSCRIPT has a large selection of graphics operators that al- 
low it to precisely describe a desired page. These operators con- 
trol the placement of three types of graphics objects: 


e Text in a wide variety of typefaces can be placed on a page 
in any position, orientation, and scale. 


¢ Geometric figures can be constructed using POSTSCRIPT 
graphics operators. These describe the locations of straight 
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lines and curves of any size, orientation, and width, as well 
as filled spaces of any size, shape, and color. 


e Sampled Images of digitized photographs, free-hand 
sketches, or any other image may be placed on a page in 
any scale or orientation. 


All graphic objects may be easily rotated, scaled, and clipped to 
a specified portion of the output page. 


POSTSCRIPT Imaging Model 


An imaging model is the set of rules that are incorporated into 
the design of a graphics system. The POSTSCRIPT imaging model 
is very similar to the model we instinctively adopt when we draw 
by hand. 


The POSTSCRIPT model considers an image to be built up by 
placing ink on a page in selected areas. The ink may form letters, 
lines, filled shapes, or halftone representations of photographs. 
The ink itself may be black, white, colored, or any shade of gray. 
These elements may be cropped to a boundary of any shape as 
they are placed on the page. Once the page has been built up to 
the desired form, it may be printed on an output device. 


Three concepts are central to the implementation of the 
POSTSCRIPT imaging model: 


Current Page: The current page is the “ideal page” on which 
POSTSCRIPT draws. It is independent of the capabilities of the 
printer being used. 


When a program begins, the current page is completely empty. 
POSTSCRIPT painting operators place marks on the current page, 
each of which completely obscures marks that they may overlay. 
Once the current page is completely described, it is sent to the 
printer, which reproduces the page as well as it can. 


It is important to remember that no matter what color a mark 
has—white, gray, black, or color—it is put onto the current 
page as if it were applied with opaque paint. 


Current Path: The current path is a set of connected and dis- 


connected points, lines, and curves that together describe shapes 
and their positions. There is no restriction to the shapes that may 
be defined by the current path; they may be convex or concave, 
even self-intersecting. The elements of the current path are 
specified in terms of their positions on the current page. The 
resolution of the printer in use in no way constrains the defini- 
tion of the path. 


The current path is not itself a mark on the current page. 
POSTSCRIPT path operators define the current path, but do not 
mark the page. Once a path has been defined, it can be stroked 
onto the current page (resulting in a line drawn along the path), 
filled (yielding solid regions of ink), or used as a clipping bound- 
ary. 


Clipping Path: The current clipping path is the boundary of 
the area that may be drawn upon. Initially, the clipping path 
matches the printer’s default paper size. The clipping path may 
be changed to any size and shape desired. If an imaging operator 
tries to mark the current page outside of the current clipping 
path, only those parts of the mark that fall within the clipping 
path will actually be drawn onto the current page. 


Coordinate Systems 


Positions on a page are described as x and y pairs in a coordinate 
system imposed on the page. 


Every output device has a built-in coordinate system by which it 
addresses points on a page. We call this built-in coordinate sys- 
tem, idiosyncratic to each device, device space. Device space 
varies widely from printer to printer; there is no uniformity in the 
placement of coordinate origins or in horizontal and vertical 
scaling. 


Positions on the POSTSCRIPT current page are described in terms 
of a user coordinate system or user space. This coordinate sys- 
tem is independent of the printer’s device space. Coordinates in a 
POSTSCRIPT program are automatically transformed from user 
space into the printer’s device space before printing the current 
page. User space thus provides a coordinate system within which 
a page may be described without regard for the particular 
machine on which the page is to be printed. 
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The POSTSCRIPT user space can be altered in three ways. The 
coordinate system’s origin may be translated, moved to any 
point in user space. The axes may be rotated to any orientation. 
The axes may be scaled to any degree desired; the scaling may 
be different in the x and y directions. A sophisticated user may 
specify any linear transformation from user space to device 
space. Thus, coordinates in a POSTSCRIPT program are change- 
able with respect to the current page, since they are described 
from within a coordinate system that may slide around, turn, 
shrink, or expand. 


1.2 POSTSCRIPT AS A PROGRAMMING LANGUAGE 
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About one-third of the POSTSCRIPT language is devoted to 
graphics. The remainder makes up an entirely general computer 
programming language. The POSTSCRIPT language contains ele- 
ments of many other programming languages, but most closely 
resembles the FORTH language. 


POSTSCRIPT Stack 


POSTSCRIPT reserves a piece of memory called a stack for the 
data with which it is working. The stack behaves like a stack of 
books. The last book placed on the stack is the first book that 
will later be removed. Similarly, numbers, strings, and other 
pieces of data placed on the stack will be removed in reverse 
order, the last item added to the stack being the first retrieved. 


Postfix Notation 


POSTSCRIPT operators that require numbers or other data, such 
as add and sub, retrieve that data from the stack. To use an 
operator, one must first place the data it requires, its operands, 
on the stack, and then call the operator. The operator will place 
its own results on the stack. This style of programming, in which 
the operands are specified before the operator, is referred to as 
postfix notation. 


POSTSCRIPT Data Types 


POSTSCRIPT supports many data types common to other lan- 
guages, including reals, booleans, arrays, and strings. The 
POSTSCRIPT language also defines object types such as 
dictionary and mark. For descriptions of all the POSTSCRIPT data 
and object types, refer to the POSTSCRIPT Language Reference 
Manual. 


POSTSCRIPT Flexibility 


POSTSCRIPT is an extremely flexible language. Functions that do 
not exist, but which would be useful for an application, can be 
defined and then used like other POSTSCRIPT operators. Thus, 
POSTSCRIPT is not a fixed tool within whose limits an appli- 
cation must be written, but is an environment that can be 
changed to match the task at hand. Pieces of one page descrip- 
tion can be used to compose other, more complicated pages. 
Such pieces can be used in their original form or translated, 
rotated, and scaled to form a myriad of new composite pages. 


Printable Programs 


POSTSCRIPT programs are written entirely in printable ASCII 
characters. This allows them to be handled as ordinary text files 
by the vast majority of communication and computer file 
systems. In addition, it ensures that a POSTSCRIPT program will 
be as easy for a person to read as the structure of the program 
allows. 
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CHAPTER 2 


The POSTSCRIPT programming language, like all programming 
languages, works with various types of data, such as numbers, 
arrays, strings, and characters. The pieces of data manipulated by 
POSTSCRIPT are referred to as POSTSCRIPT objects. 


There are many ways a language can manipulate data; for ex- 
ample, many languages require that data be placed in variables 
and be addressed by a variable name. The POSTSCRIPT language 
has variables, but it also manipulates data directly by using a 
special entity called a stack. 


2.1 THE POSTSCRIPT STACK 


A stack is a piece of memory set aside for data which is to be 
immediately used by POSTSCRIPT. This memory area is or- 
ganized in such a way that the last item put in is the first item 
available to be removed. This type of data structure is referred to 
as a last in, first out or LIFO stack. 


A LIFO stack behaves like a stack of books. As the books are 
stacked up—Twain, then Dickens, then Hemingway, and so 
on— only the book on the top, the last one added, is really acces- 
sible. 
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12 6.3 -99 

| 12 || 63 || -99 
12 || 63 

12 


POSTSCRIPT Stack 


mark 
/Font 
[1 2] 
(PS) 


Anything can be placed 
on the stack 


Putting Numbers on the Stack 


Any number appearing in a POSTSCRIPT source file (that is, a 
text file that contains a POSTSCRIPT program) is placed on the 
stack. For example, if a source file contains the following line: 


12 6.3 -99 


the interpreter will take the following actions as it reads the line 
from left to right (see illustration at left): 


1. Push the number /2 onto the stack 


2. Place 6.3 on the stack, pushing /2 to the next position 
down. 


3. Put —99 onto the stack, pushing the first two numbers down 
one place. 


The number —99 is now at the top of the stack, waiting to be 
used. The other numbers are on the stack also, but can only be 


taken off in the proper order. It should be borne in mind as we 
use the stack that any kind of POSTSCRIPT object can be placed 
on the stack. This includes arrays, strings, and the more exotic 
POSTSCRIPT objects, like dictionaries. For the first chapter or 
two of this tutorial, we shall concentrate primarily on numbers, 
to simplify our discussion. 


Note that spaces, tabs, and newline characters act as delimiters of 
POSTSCRIPT objects. Other characters, such as parentheses and 
brackets, can be delimiters under some circumstances; we shall 
discuss these as we progress through the tutorial. 


2.2 ARITHMETIC 


A POSTSCRIPT operator is a word that causes the POSTSCRIPT 
interpreter to carry out some action. It is the equivalent of the 
commands and procedures of other languages. When the inter- 
preter comes across a word in a source file, it searches its inter- 
nal dictionaries to see if that word is an operator name. If the 
name is listed in the dictionary, the interpreter carries out 
whatever instructions are associated with that name and then 
continues on to the next word in the source file. For more detail 
on POSTSCRIPT dictionaries, refer to chapter four. 
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5 27 add 
|_5 || 27 || 32 | 
5 
add 
8.3 6.6 sub 
| 3.3 || 6.6 || 1.7 | 
8.3 
sub 


add and sub 


POSTSCRIPT operators look to the stack for the numbers they 
need, that is, for their operands. The operator generally removes 
its operands from the stack and replaces them with whatever 
results that operator produces. 


For example, the add operator causes POSTSCRIPT to remove the 


top two numbers from the stack, add them, and leave the sum on 
the stack. Thus, the program line below would affect the stack as 
illustrated at left. 


5 27 add 


The 5 and the 27 are pushed onto the stack and the add operator 
then replaces them with their sum. 


The POSTSCRIPT sub operator works in a similar manner, with 
the program line 


8.3 6.6 sub 


having the results diagrammed at left. The numbers 8.3 and 6.6 
are pushed on the stack; the sub operator subtracts the top num- 
ber on the stack from the number below it. 


Stack Notation 


The contents of the POSTSCRIPT stack is typically depicted in 
print as a line of numbers (or other data) with the top of the stack 
at right. Thus, a stack with 6 on top, /43.9 below it, and —800 
below that is printed: 


—800 143.9 6 


Notice that this displays the numbers in the order in which they 
were originally placed on the stack. 


Similarly, the effects of an operator on the stack may be in- 
dicated by showing the stack’s initial condition (before the 
operator is executed), the operator’s name, and then the contents 
of the stack after the operator was executed. Using this method, a 
demonstration of the effects of add could be expressed: 
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5 27 add => 32 


Other Arithmetic Operators 


Besides add and sub, POSTSCRIPT possesses a full range of 
arithmetic operators, including: 


div 


idiv 


mod 


mul 


neg 


Divide the second number on the stack by the 
top number on the stack. For example, 


13 8 div => 1.625 


Divide the second number on the stack by the 
top number on the stack; only the integral part of 
the quotient is retained. 


25 3 idiv= 8 


Divide the second number by the top. In this 
case, only the remainder of the division is kept. 


12 10 mod=>2 


The operands passed to the mod and idiv 
operators must be integers. 


Multiply the top two numbers on the stack, 
pushing the product onto the stack. 


6 8 mul > 48 


Reverse the sign of the number on top of the 
stack. 


—27 neg => 27 


These are the arithmetic operators we shall be using the most in 
this tutorial. For detailed descriptions of the full range of 
POSTSCRIPT arithmetic operators, including sqrt, exp, ceiling, 
and sin, see the POSTSCRIPT Language Reference Manual. 
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3 8 div 6 add 
8 ||.375|| 6 ||6.375| 
3 375 
6+3/8, Example 1 
638 div add 
8 || .375 | |6.375| 
3 6 
6 
6+3/8, Example 2 
73 mul 8 exch sub 
| 21 | 21 || -13 | 
21 8 
8-7%3 


More-Complex Arithmetic 


The use of a stack in POSTSCRIPT allows some freedom in ex- 
actly how an arithmetic process is carried out. For example, let 
us say that we wanted to calculate 


6 +(3 +8) 


in POSTSCRIPT. Either of the following two program lines would 
leave the appropriate number on the stack. 


e3 8 div 6 add 


°6 3 8 div add 


In the first case (see illustration), we put 3 and & on the stack, 
divide the former by the latter, put 6 on the stack, and add it to 
the quotient below it. 


In the second case, the same operations are performed, but now 
we start out by putting all three of the numbers on the stack. 


Then we call the div operator, which divides the second number 
(3) by the top (8) and add the top two numbers (6 and .375). 


Similarly, the equation 
8 — (7 x3) 
can be expressed in at least two ways: 
¢8 7 3 mul sub 
¢7 3 mul 8 exch sub 


The second method introduces a new operator: exch. This 
operator exchanges the top two items on the stack. Note that in 


this example, the phrase 7 3 mul places the two numbers on the 
stack and multiplies them, leaving the product, 2/, on the top of 
the stack. The number 8 is then pushed onto the stack, but this 
leaves the stack contents in the wrong order for our subtraction. 
The sub operator subtracts the top number from the second, 
which in this case would be 2/ minus 8, the opposite of what we 
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want. The exch operator invoked at this point reverses the order 
of the top two numbers of the stack, putting them in the correct 
order for our subtraction. 


Stack Operators 


The exch operator is our first example of a stack operator, an 
operator whose function is to add, remove, or rearrange items on 
the POSTSCRIPT stack. There are several such operators, includ- 


ing: 
clear Removes all items from the stack. 
6 8 12 clear > — 
dup Duplicates the top item on the stack. 
6 dup=>6 6 
pop Remove the the top element from the stack. 
17 8 pop=> 17 
roll Roll stack contents. Take two numbers from the 


stack. The top number tells POSTSCRIPT how 
many times and in which direction to rotate the 
stack; the second number is how many items are 
to be rotated. 


7893 1roll=>9 7 8 
7893 -1rol=>8 9 7 


We will be using these and other stack manipulation operators 
throughout this manual. For a complete description of all these 
operators, see the appropriate chapter in the POSTSCRIPT Lan- 
guage Reference Manual. 


2.3 INTERACTIVE STACK OPERATORS 


Most POSTSCRIPT programs are generated by application 
programs such as word processors. However, many POSTSCRIPT 
printers have an interactive mode that allows a user to speak 
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15.3 || -17 
-17 98 
98 


directly to the POSTSCRIPT interpreter. For those who do have an 
interactive environment, POSTSCRIPT has operators that allow 
you to directly examine the stack. 


The == operator removes the top item from the stack and echos 

it over a communications channel (which is often connected to a 
terminal). Thus, if the stack looked like figure a, at left, the == 
operator, typed on the keyboard, would print /5.3 on the ter- 
minal and leave the stack holding the contents indicated in b. 


The == operator prints the top item as well as it can. Many ob- 
jects, such as numbers, strings, and arrays, are simply printed. 
Items that cannot be printed, like dictionaries and files, are iden- 
tified by their object types. Thus, if the top item on the stack was 
a dictionary (we shall be talking about this at greater length 
later), the == operator would print 


—dictionary— 


on the terminal. 


pstack 


Another useful interactive stack operator is pstack. This operator 
prints the contents of the entire stack. Unlike the == operator, 
pstack does not remove any of the stack’s contents. 


Thus, if the stack looked like this: 
6 12 -97.2 100 


The pstack operator would display the following, leaving the 
stack unchanged. 


100 
-97.2 
12 

6 


pstack and == are examples of polymorphic operators, so called 
because they can take many different kinds of objects as 
operands. 
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2.4 NEW OPERATOR SUMMARIES 


This chapter, and those that follow, end with a summary of the 
POSTSCRIPT operators introduced in the chapter. These sum- 
maries group the new operators by function type and list the fol- 
lowing information for each: 

e Operator name 

e Stack contents before operation 

e Stack contents after operation 

e Description of operation 
The two lists of stack contents are separated by a double arrow 


(=). The symbols used in the stack descriptions represent the 
following types of objects: 


nijxy Numbers 

ary Array 

bool Boolean 

dict Dictionary 

fdict Font dictionary 

nam Name 

ob Any POSTSCRIPT object 
proc Procedure 

str String 


Other symbols, when used, are self-explanatory. When more 
than one type of object may be expected on the stack, the alter- 
native types will be separated by a slash (/). Thus, ary/str in- 
dicates that the object may be either an array or a string. 


Chapter 2: STACK AND ARITHMETIC 


2.5 OPERATOR SUMMARY 


clear 


dup 


exch 


pop 


roll 


add 


div 


idiv 


mod 


mul 


sub 


pstack 


Stack Operators 


ob)...0b; >— 
Remove all stack contents 


ob = ob ob 

Duplicate top of stack 

ob, ob, = ob, ob, 

Reverse order of top two objects on stack 
ob, ob, = ob, 

Remove top of stack 


ob,,_;--0b, nj = ob(.1) jh aeas 
Rotate n elements j times 


.0bp ob, _|---0b; moda 


Math Operators 


n,n, >n,+n, 
Add two numbers 


n,n, > n,n, 
Divide two numbers 


n, nN, => int(n,+n,) 
Integer divide 


n, Ny > (n, MOD n,) 
Modulus 


n,n, > nxn, 
Multiply two numbers 


n,n, >n,-n, 
Subtract two numbers 


Interactive Operators 


ob > — 
Destructively display top of stack 


ob,...0b; = ob)...0b; 
Display stack contents 
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CHAPTER 3 


BEGINNING GRAPHICS 


The POSTSCRIPT language is designed to produce graphic 
images. This being the case, the language comes with a wealth of 
graphics operators, which we shall be exploring in this tutorial. 


Drawing with POSTSCRIPT starts with constructing a path on an 
ideal drawing surface called the current page. A path is a set of 
straight lines and curves that define a region to be filled or 
represent a trajectory that is to be drawn on the current page. 
(For a more complete discussion of paths and the current page, 
refer to the POSTSCRIPT Language Reference Manual.) 


Having constructed a path, we need to decide what to do with it. 
We can paint a line of some thickness along the current path or 
we can fill the path in to create a solid shape. 


We will alternate these two steps —creating a path and filling or 
stroking it—until everything we want has been drawn onto the 
current page. Once the current page is complete, we can print it 
on a physical piece of paper. 
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3.1 DRAWING LINES 


Let us begin with a simple task: drawing a single 5-inch-long 
vertical line. The following program accomplishes this. 


newpath 
144 72 moveto 
144 432 lineto 
stroke 
showpage 


Let us examine this program line by line. 


We start out by calling the newpath operator. This operator 
empties the current path and declares we are starting a new path. 


Now we shall construct a straight path that corresponds to the 
line we wish to draw. Paths are constructed by moving a phan- 
tom “pen” around the current page. This pen leaves an unmarked 
trace on the current page that represents the current path. The 
position on the current page to which this pen points at a par- 
ticular time is the current point on the current path. 


We start building a path with a moveto. 
144 72 moveto 


The moveto operator takes two numbers off the stack and treats 
them as x and y coordinates to which to move. The coordinates 
specified become the current point. 


In the POSTSCRIPT default coordinate system, the origin is in the 
lower left hand corner of the current page. As usual, x increases 
to the right and y increases upward. The units employed in this 
system are 1/72 inch long. Thus, our second program line places 
two numbers (/44 and 72) on the stack and then moves the cur- 
rent point to a location 2 inches (144/72) to the right and 1 inch 
(72/72) up from the lower-left corner of the page. 


The lineto operator on the third line, 
144 432 lineto 


adds a segment to the current path that connects the current point 
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to the position specified by the numbers on the stack, in this case 
144 and 432. The point specified as the argument to this operator 
becomes the new current point. 


Note that the lineto operator does not actually draw on the cur- 
rent page. It simply adds a line segment to the current path. You 
may later draw in this line, but it does not happen automatically. 


The stroke operator on line four causes the path we have con- 
structed to be painted onto the current page. Our path becomes a 
visible line. 


Finally, showpage prints the current page, with the line we drew 
on it. 


The three steps we took in drawing our line were: 


1. Construct a POSTSCRIPT path, using newpath, moveto, and 
lineto. 


2. stroke that path onto the current page. 


3. Print the current page with showpage. 


Two Lines 


The following program, whose output is at left, draws two lines. 


newpath 
72 360 moveto 
144 72 rlineto 
144 432 moveto 
0 -216 rlineto 

stroke 

showpage 


This program is similar to our first. The first two lines clear the 
current path and move the current point to a position 1 inch to 
the right and 5 inches up from the page’s lower-left corner. 


newpath 
72 360 moveto 


The next line contains a new operator, rlineto. 


3.1. DRAWING LINES 19 


20 


A Box 


144 72 rlineto 


This is similar to the lineto operator we used in the first 
program. Here, however, the numbers on the stack represent an x 
and y displacement relative to the current point. POSTSCRIPT also 
has an rmoveto operator that is similar to moveto, but measures 
positions relative to the current point. 


Thus, the program line above adds a line segment to the current 
path. This segment extends two inches to the right of, and one 
inch above, the current point. 


The next two lines of the program, 


144 432 moveto 
0 —-216 rlineto 


move the current point up above the first line segment and then 
add a line segment to our path extending down (note the negative 
y argument) 2/6 units from that point. 


At this stage we have a path consisting of two intersecting line 
segments. These lines would be invisible if we were to print the 
current page right now, since we have not yet used the stroke 
operator. Note that the current path is not continuous. A 
POSTSCRIPT path does not need to be a single connected piece; it 
can consist of any collection of line segments and curves on the 
current page. 


Finally, our program strokes the path and prints the current page. 


A Box 


Here’s a simple one-inch-square box, centered on the page: 


newpath 
270 360 moveto 
0 72 rlineto 
72 0 rlineto 
0 -72 rlineto 
—72 0 rlineto 
4 setlinewidth 
stroke showpage 
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A Better Box 


This program moves to a position near the center of the page and 
then constructs a box-shaped path by moving one inch up, right, 
down, and left. The path is then stroked and the page printed. 


The seventh line presents something new: 
4 setlinewidth 


The setlinewidth operator allows you to specify the width of the 
line that is stroked onto your path. In this case, a line width of 
4/72 inch is specified; this will remain the width of all lines 
stroked onto the page until a new setlinewidth is invoked. 


Our box, you may notice, contains a flaw: the lower-left corner 
has a notch in it. This results from our lines’ having significant 
width. 


A four-unit-wide line segment extends two units to either side of 
the current path (illustration a, at left). Where the first and last 
line segments of our box intersect, there is a two-unit-square area 
that is not a part of either stroked path and remained white 
(illustration Db). 


To avoid this problem, we must use a new operator: closepath. 


newpath 
270 360 moveto 
0 72 rlineto 
72 0 rlineto 
0 -72 rlineto 
closepath 
4 setlinewidth 
stroke showpage 


This program is identical to the previous one, save that the 
program line closing the box has been changed to closepath. The 
closepath operator adds a line segment to the current path con- 
necting the current point to the last point addressed by a moveto 
operator. It closes the path with a mitered join, eliminating the 
notch we noticed in our first box. It is possible to change the 
method by which POSTSCRIPT joins line segments; to see how 
this is done, refer to chapter 9 of this tutorial. 
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3.2 FILLED SHAPES 


Our programs so far have constructed paths and then stroked 
them onto the page. However, a POSTSCRIPT path can also be 
filled in. The following program is identical to the last except for 


one line. 


newpath 
270 360 moveto 
0 72 rlineto 
72 0 rlineto 
0 -72 rlineto 
closepath 

A Filled Box fill 

showpage 


This time, instead of stroking this path, we invoked the fill 
operator. This operator fills the current path with ink, producing 
a solid black square. 


A Gray Box 


Our block does not have to be black. The program below 
produces a gray box. 


newpath 
270 360 moveto 
0 72 rlineto 
72 0 rlineto 
0 -72 rlineto 
closepath 


.5 setgray 
A Gray Box fill 


showpage 


The setgray operator specifies the shade of gray in which all 
painting is to be done. The argument on the stack (0.5, in this 
case) specifies the shade, with zero being black and one being 
white. The gray shade specified will remain in effect until 
another setgray changes it. If a program does not specify a gray 
value, POSTSCRIPT assumes everything is to be painted in black. 
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Overlapping Boxes 


Your printer may produce halftones that look different from 
those printed in this tutorial. Each printer has its own method of 
generating these. 


Overlapping Shapes 


POSTSCRIPT images are opaque. Any ink painted on the current 
page will obscure anything previously painted there. Consider 
this program, for example, which paints three overlapping solid 
squares. 


newpath %Begin black box 
252 324 moveto 
0 72 rlineto 
72 0 rlineto 
0 -72 rlineto 
closepath 
fill 


newpath %Begin gray box 
270 360 moveto 
0 72 rlineto 
72 0 rlineto 
0 -72 rlineto 
closepath 
.4 setgray 
fill 


newpath %Begin lighter box 
288 396 moveto 

0 72 rlineto 

72 0 rlineto 

0 -72 rlineto 

closepath 

.8 setgray 


fill 


showpage %Send to printer 


This example paints a black box, an overlapping gray box, and 
an overlapping light gray box. Each box covers up part of the 
box below it. If we had painted a white box, that would also have 
covered up whatever it overlapped. 


Note that each box had to start with a moveto. This is because 
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the fill operator clears the current path; after a fill, there is no 
current point and a lineto or rlineto would have no starting 
point. The stroke operator also clears the current path. 


The three-box program also contains comments. Comments in 
POSTSCRIPT programs start with a percent symbol and continue 
to the end of the line. Anything following a % on a POSTSCRIPT 
program line is ignored by the interpreter. 


This last program was quite repetitious; we performed a set of 
operations — drawing a filled box —three times. We shall see in 
the next chapter that the POSTSCRIPT language allows you to 
define a group of operations as a named procedure. This proce- 
dure can then be used exactly as though it were a POSTSCRIPT 
predefined operator. 
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3.3 OPERATOR SUMMARY 


closepath 


lineto 


moveto 


newpath 


rlineto 


rmoveto 


fill 


setgray 


setlinewidth 


stroke 


showpage 


Path Construction Operators 


— DD 


Closes the current path with a straight line to the last moveto point 


xy>— 
Continue the path with line to (x,y) 


xy>— 
Set the current point to (x,y) 


—_ => — 
Clear the current path 


xy>— 
Relative lineto (currentpoint + (x,y)) 


xy>— 
Relative moveto 


Painting Operators 


— => —— 
Fill current path with the current color 


n> — 
Set the current color 


n> — 
Set the current line width 


—s => — 
Paint the current path with the current color and line width 


Output Operators 


— => —— 
Transfer the current page to the output device 
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CHAPTER 4 


4.1 POSTSCRIPT DICTIONARIES 


A dictionary is a table that associates pairs of objects. An 
English dictionary associates words with their definitions. A 
POSTSCRIPT dictionary associates an object called a key with 
another object, the key’s value. The POSTSCRIPT interpreter can 
look up a key in a dictionary and obtain the associated value (or 
discover that the key is not present). 


Two POSTSCRIPT dictionaries are always present, the system 
dictionary and the user dictionary. The system dictionary pairs 
each predefined POSTSCRIPT operator name with a particular 
built-in action. The POSTSCRIPT user dictionary associates 
names with the procedures and variables defined by a program. 


When the interpreter encounters a name, it searches first the user 
dictionary and then the system dictionary. If it finds the name 
among the dictionaries’ keys, the interpreter takes the ap- 
propriate action, usually either putting an object on the stack or 
carrying out a set of instructions. If the name is not found in the 
dictionaries, the interpreter raises an error. 


POSTSCRIPT dictionaries are kept on a dictionary stack, which 
starts out with the system dictionary on the bottom and the user 
dictionary on top. When the interpreter encounters a name, it 
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searches the dictionaries downward from the top of this stack. A 
program may create new dictionaries, which can be placed on 
top of the dictionary stack. The dictionary on top of the diction- 
ary stack, and thus the first to be searched, is called the current 
dictionary. For details on creating new dictionaries, refer to the 
POSTSCRIPT Language Reference Manual and the POSTSCRIPT 
Language Cookbook. 


4.2 DEFINING VARIABLES AND PROCEDURES 


10 ppi mul 
|_10 || 72 || 720 
10 


Using a Variable 


POSTSCRIPT Variables 


A variable is defined by placing the variable’s name and value 
into the current dictionary. This is done with the def operator, as 
in the following program line: 


/ppi 72 def 


This line first places the name ppi onto the stack. The slash 
preceding these characters indicates that the POSTSCRIPT inter- 
preter should put this name on the stack as a literal and not im- 
mediately try to find it in a dictionary. 


Next, the number 72 is pushed onto the stack. 


Finally, def takes these two objects off the stack and enters them 
into the current dictionary. The second item on the stack (ppi) 
becomes the key that is associated with the first item (72). That 
is, ppi is now a POSTSCRIPT variable with a value of 72. If the 
line 


10 ppi mul 
were to appear later in our program, the POSTSCRIPT interpreter 
would do the following: 


1. Push /0 on the stack, 


2. Search the dictionary stack for the key ppi and put its value, 
72, on the stack, 


3. Multiply the top two stack items together, leaving their 
product on the stack. 
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/ppi ppi 1 add 
| ppi || 100 || 1 101 


ppi 100 ppi 


Incrementing a Variable 


To change the value of a variable, you redefine it with a new 
value. The following lines would both change the value of ppi. 


/ppi 100 def 
/ppi ppi 1 add def 


The first line would redefine ppi to a value of 100; the second 
would increment the value of ppi by one (see illustration at left). 


POSTSCRIPT Procedures 


A POSTSCRIPT procedure is a set of operations grouped together 
with a common name. This set of operations is stored with its 
key in a dictionary. When the key appears in a program, the as- 
sociated set of operations is carried out. 


POSTSCRIPT procedures are defined in exactly the same way as 
variables. The program must place the procedure name (preceded 
by a slash) on the stack, followed by the set of operations that 
make up the procedure. Then the def operator is used to store the 
operations and name in the current dictionary. The set of opera- 
tions making up the procedure must be enclosed in braces. 


For example, the following line defines a procedure named inch. 
/inch {72 mul} def 


Any appearances of the word inch following this line will cause 
the interpreter to carry out the operations inside the braces. That 
is, the interpreter will put 72 on the stack and then multiply the 
top two numbers, the 72 and whatever was on the stack when 
inch was called. Thus, the program lines 


5 inch 
5 72 mul 


have identical results; both leave 360, the product of 5 and 72, on 
the stack. 


The inch procedure is a useful tool in many programs, since it 
translates inches into the 1/72-inch units of the POSTSCRIPT co- 
ordinate system. 
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4.3 USING PROCEDURES AND VARIABLES 


Overlapping Boxes 


The use of procedures and variables can make an enormous dif- 
ference in the readability of a program, the ease with which it 
can be modified, and its length. 


Three Boxes Again 


As an example, let us take the last program from chapter two, the 
three overlapping boxes, and rewrite it. Looking over the 
program, we see that the set of instructions that construct a one- 
inch-square path is repeated three times. Let us define these in- 
structions to be a procedure named box and then incorporate this 
procedure into the program. 


% ----- Define box procedure --- 
/box 
{ 72 0 rlineto 
0 72 rlineto 
—72 0 rlineto 
closepath } def 
% --------- Begin Program ----------- 
newpath % First box 
252 324 moveto box 
0 setgray fill 
newpath % Second box 
270 360 moveto box 
.4 setgray fill 
newpath % Third box 
288 396 moveto box 
.8 setgray fill 
showpage 


Here we start by defining our new procedure, box, to be the set 
of operators that create a square path. We then use that procedure 
three times to make three filled boxes. First we move to a start- 
ing point on the current page. Then we call the box procedure, 
which contructs a path starting at that point. Finally, we set the 
gray value and fill the path we contructed. These steps are 
repeated two more times, once for each box in our image. 
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Advantages 


Changing our program has affected it in three important ways: 


1. The program is more compact. 


2. The program is more readable. Procedure names can (and 
should) be chosen to reflect what they do. In reading the 
program later, you can more easily see what the program is 
doing at any given point, since the procedure titles them- 
selves tell you. 


3. The program is more easily changed. If, for example, we 
wanted it to create two-inch boxes, we would only need to 
change the definition of the box procedure. In the earlier 
version of this program, we would have had to separately 
change each of the three boxes. 


Another Box Program 


The way in which one designs a program will vary according to 
what decisions have been made in defining procedures. Let us 
look at one more way of producing our overlapping boxes. 


% ------- Define procedures---- 
/inch {72 mul} def 


/box % stack: x y => --- 
{ newpath moveto 

1 inch 0 rlineto 

0 1 inch rlineto 

—1 inch 0 rlineto 

closepath } def 


/fillbox % stack: grayvalue => --- 
{ setgray fill } def 

% ----------- Main Program ----------- 

3.5 inch 4.5 inch box 

0 fillbox 

3.75 inch 5 inch box 

4 fillbox 

4 inch 5.5 inch box 

8 fillbox 

showpage 


We have made three changes here. First of all, we have included 
our inch procedure, which converts the number on the stack from 
inches into POSTSCRIPT units. 
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Second, we changed box so that it clears the current path 
(newpath) and then moves to the location specified on the stack 
before tracing out its path. Note that the comment to the right of 
the procedure name indentifies what the procedure expects to 
find on the stack. 


Finally, we defined fillbox, which sets the current gray value to 
the number on the stack, and then fills the current path. 


This new version of our program divides into two sections. We 
first defined a set of procedures and then used these procedures 
in the main part of our program, the section that actually carries 
out our assigned task. This main program section is much more 
readable than our original three-box program. Units are ex- 
pressed in inches and major activities are carried out by 
procedures whose names indicate their functions. 


Considerations in Defining Procedures 


There are no solid rules that dictate when a set of operations 
should be defined as a procedure. In general, the three qualities 
you are trying to maximize are: readability, so that other people 
(or yourself at a later date) can pick up the program and see what 
it does; compactness, so that your program does not take up 
more space than is necessary; flexibility, so that when changes 
become necessary, they can be made with a minimum of pain. 


To maximize these qualities, you should consider defining a set 
of operations to be a procedure if it occurs frequently in the 
program, particularly if it is likely to need revising, or if its pur- 
pose is obscure to the casual reader and would benefit from a 
descriptive name. 
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4.4 OPERATOR SUMMARY 
Dictionary Operators 


def key value > — 
Associate key with value in the current dictionary 
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PRINTING TEXT 


A great deal of what we put on paper is text in various forms. 
The POSTSCRIPT language has all the tools necessary to handle 
text operations, from simple word placement to complex 
typographic composition. 


Text data is represented by POSTSCRIPT string objects. A 
POSTSCRIPT string consists of any sequence of characters 
enclosed in parentheses. A string can be placed on the stack, 
assigned to a variable, or printed on paper. 


POSTSCRIPT allows considerable freedom in how a string is 
printed. Before a string can be sent to the current page, 
POSTSCRIPT must be told what typeface and size to use in the 
printing. That is, you must specify the font. 


5.1 POSTSCRIPT FONTS 


A font is a collection of characters with a unified design. The 
design itself is referred to as a typeface. A set of typefaces 
designed to work together in a pleasing way is called a typeface 


family. 


There are hundreds of typeface families, including such familiar 
ones as Times and Helvetica. 
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Roman 

Italic 

Bold 
Extended 
Condensed 
Obliqued 


typography 
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The typefaces within each family represent variations on the 
theme set by the family’s design. Thus, within the Times family, 


we have Times Roman, Times Italic, Times Bold, and so on. The 
variety of possible faces within a family is endless and includes 
typefaces that are extended, condensed, extra-bold, and obliqued. 


A font is a particular implementation of a typeface. The standard 
POSTSCRIPT fonts are geometrical descriptions of the outlines of 
a typeface’s characters. These descriptions allow the font to be 
printed on paper at any scale with minimum distortion from the 
scaling process. 


Using POSTSCRIPT Fonts 


Before you can print text, you must specify the desired font. 
There are three steps to this process: 


1. Find the information describing the font. This information 
is kept in a font dictionary, which contains the information 
necessary to produce a particular font, including the outline 
description of each character. For more information on 
font dictionaries, refer to chapter eight of this tutorial and 
to the POSTSCRIPT Language Reference Manual. 


2. Scale the font to the size needed. The size is specified by 
the minimum vertical separation necessary between lines of 
text. Thus, a twelve-point font needs twelve points be- 
tween successive lines of text to ensure the lines do not 
interfere with each other. (Remember that a point is 1/72 
inch.) 


3. Establish the scaled font as the current font, in which all 
text is to be printed. 


To see how this is done, let us examine the following program, 
which prints the word typography in 15-point Times Roman. 


/Times-Roman findfont 
15 scalefont 


setfont 

72 200 moveto 
(typography) show 
showpage 


There are several new operators here. 


In the first line we put the literal name Times-Roman on the stack 
and then call the findfont operator. 


/Times-Roman findfont 


findfont looks up the name in a dictionary called FontDirectory 
and places the appropriate font dictionary on the stack. 


The font dictionary returned by the findfont operator contains 
character shape descriptions for one-point characters. These must 
be changed to the desired font size with the scalefont operator. 
This operator takes a font dictionary and a number from the 
stack, and returns the font dictionary scaled by the specified 
amount. 


Thus, our program’s second line 
15 scalefont 


will leave on the stack a dictionary for a 15-point Times Roman 
font. 


Finally, the setfont operator takes the font dictionary off the 
stack and establishes it as the current font, to be used for printing 
text. 


Now we are ready to print something. 


We use the moveto operator to set the current point. Then we 
place the string typography on the stack (enclosed in parentheses 
to denote it as a string), and call the show operator. 


72 200 moveto 
(typography) show 


show prints the string that is on the stack onto the current page 
starting at the current point. The current point is left at the end of 
the text. 
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5.2 PRINTING VARIETY 


Gorilla 
Gorilla 
Gorilla 
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Point Sizes 


The fact that POSTSCRIPT internally describes its fonts as shape 
descriptions allows the fonts to be scaled while retaining their 
fidelity at large sizes. For example, consider the following 
program: 


/showGorilla % stack: x y --- 


{ moveto (Gorilla) show }def 

/Times-Roman findfont 6 scalefont setfont 
72 300 showGorilla 

/Times-Roman findfont 10 scalefont setfont 
72 275 showGorilla 

/Times-Roman findfont 15 scalefont setfont 
72 250 showGorilla 

/Times-Roman findfont 20 scalefont setfont 
72 225 showGorilla 


showpage 


This program prints the word Gorilla in four different sizes of 
Times Roman. We first define a procedure called showGorilla, 
which moves to a position specified on the stack and then prints 
the string. 


/showGorilla = % stack: x y --- 
{ moveto (Gorilla) show }def 


The procedure is followed by a set of lines that repeatedly finds, 
scales, and sets a Times Roman font and then calls showGorilla. 


/Times-Roman findfont 6 scalefont setfont 
72 300 showGorilla 


Note that this program could also be written with a procedure 
defined to handle the font changes: 


/showGorilla  % stack: x y 
{ moveto (Gorilla) show }def 


/scaleTimes % stack: scale 

{ /Times-Roman findfont 
exch scalefont %scale, using # on stk 
setfont } def 


6 scaleTimes 

72 300 showGorilla 
10 scaleTimes 

72 275 showGorilla 
15 scaleTimes 

72 250 showGorilla 
25 scaleTimes 

72 225 showGorilla 


showpage 


The scaleTimes procedure defined above sets the current font to 
Times Roman at a point size obtained from the stack. The first 
line of the scaleTimes definition retrieves the font dictionary for 
Times Roman. 


/Times-Roman findfont 


The stack now has this dictionary on top and the scale we want 
below it. (We placed the font dictionary on the stack when we 
called the procedure.) We exchange these two objects and call 
the scalefont and setfont operators. 


exch scalefont 
setfont 


The current font becomes Times Roman at the desired point size. 
Typefaces 


The following program demonstrates the POSTSCRIPT standard 
typefaces. 
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Yo-----=-- Define Procedures ------------ 
/vpos 720 def % vertical position variable 
/word (Typefaces) def % string variable 


/choosefont % Stack: typeface-name 
{ findfont 15 scalefont setfont} def 


/newline 

{/vpos vpos 15 sub def %decrease vpos 
72 vpos moveto } def %go to that line 

/printword %stk: typeface-name 


{choosefont %set font 
word show %show "typefaces" 
newline } def %go to next line 


Typefaces Yo------~--~-- Begin Program ----------------- 
Typefaces 72 vpos moveto %vpos starts as 720 
Typefaces /Times-Roman _ printword 
Typefaces /Times-Bold _ printword 


/Times-ltalic — printword 
/Times-Bolditalic printword 


Typefaces newline 
Typefaces /Helvetica _ printword 
Typefaces /Helvetica-Bold printword 
Typefaces /Helvetica-Oblique_ printword 
/Helvetica-BoldOblique_ printword 
newline 
Typefaces /Courier  printword 
Typefaces penne printword 
/Courier-Oblique printword 
Typefaces /Courier-BoldOblique printword 
Typefaces newline 
/Symbol _ printword 
Tymedaxeo showpage 


This program is more elaborate than our earlier ones. We start by 
defining two variables and three procedures. 


The variable vpos is used to keep track of the current point’s 
vertical position. The program uses this variable as the y argu- 
ment of a moveto. 


Word holds the string that we want our program to print. It will 
be used by a show operator. 


40 Chapter 5: PRINTING TEXT 


The choosefont procedure 


/choosefont % Stack: typeface-name 
{ findfont 15 scalefont setfont} def 


sets the current font to that named on the stack. Newline moves 
the current point down fifteen points by decreasing vpos and 
using it with a moveto. 


/newline 
{/vpos vpos 15 sub def 
72 vpos moveto } def 


The printword procedure sets the current font, using choosefont, 
prints the value of the variable word, and then moves the current 
point to the beginning of the next line, using newline. 


/printword %stk: typeface-name 
{ choosefont 

word show 

newline } def 


After defining its variables and procedures, the program moves 
the current point to a starting position on the current page and 
then uses printword with nine different typefaces. 


/Times-Roman _ printword 
/Times-Bold _ printword 
/Times-ltalic — printword 
/Times-Bolditalic printword 
newline 


Note that the typeface families are separated by calls to the 
newline procedure. 


Graphics and Text 


POSTSCRIPT makes no distinction between text and graphics. A 
text character is simply another graphic object to be placed on 
the current page. Thus, no special steps need to be taken to com- 
bine text and graphics on an output page. 


Let us end this chapter with an example that illustrates this point. 
We shall design and print a business card for the world-famous 
Diamond Cafe. 
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This will be a standard-size business card (two inches by three- 
and-a-half) and will have a printed border 1/8 inch in from the 
card’s edges. We shall print the name of the cafe in bold type at 
the top left of the card with the cafe’s slogan (“The Club of 
Lonely Hearts’) in italics below it. In the lower-right corner will 
be the name of the cafe’s owner. Behind the text, we shall print a 


light gray diamond. 


Diamond Cafe 


"The Club of Lonely Hearts" 


Sam Spade 
Owner 


Yo---------------- Variables ------------------ 
/MainFont 
/Helvetica-Bold findfont 15 scalefont def 
/SloganFont 
/Helvetica-Oblique findfont 7 scalefont def 
/OwnerFont 
/Helvetica findfont 10 scalefont def 
Yo--------= ===" === Procedures ------------------- 
/rightshow % stk: string 
{ dup stringwidth pop %get length of string 


120 exch sub %calc. white space 
0 rmoveto %Move over that much 
show}def %show string 


/CardOutline %Print card’s outline 
{ newpath 
90 90 moveto 
0 144 rlineto 
252 0 rlineto 
0 -144 rlineto 
closepath 
.5 setlinewidth 
stroke } def 
/doBorder %Print card’s border 
{ 99 99 moveto 
0126 rlineto %Border: 126 pts high 
234 Orlineto % & 234 points wide 
0-126 rlineto 
closepath 
2 setlinewidth %2-point-wide line 
stroke } def 


/Diamond 
{ newpath %define & fill 
207 216 moveto % a diamond-shaped 
36 —54 rlineto % path 
-36 —54 rlineto 
-36 54 rlineto 
closepath 
.8 setgray fill} def 
/doText %Print card’s text 


{0 setgray 90 180 moveto 
MainFont setfont 
(Diamond Cafe) rightshow 
90 168 moveto 
SloganFont setfont 
("The Club of Lonely Hearts") rightshow 
216 126 moveto 
OwnerFont setfont 
(Sam Spade) show 
216 111 moveto 
(Owner) show } def 
Yo---------- Main Program ------------ 
CardOutline 
doBorder 
Diamond 
doText 


showpage 
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This program defines several variables and procedures and then 
uses them to make the card. The steps taken in printing the card 
are suggested by the procedure calls at the end of the program. 
The card’s outline is drawn, followed by the border, the gray 
diamond, and the text. 


Any POSTSCRIPT object can be assigned to a variable. This 
program uses three variables whose values are font dictionaries. 
Each of these variables holds the information needed to 
reproduce characters in a particular font. All the program needs 
to do to change fonts is place the value of the desired variable on 
the stack and call the setfont operator. 


Let’s examine the definition of the MainFont. We first place the 
name of the variable on the stack as a literal, preceded by a slash: 


/MainFont 


We then put the font dictionary for the Helvetica Bold typeface 
on the stack 


/Helvetica-Bold findfont 
and scale it to a point size of fifteen. 
15 scalefont 


The scalefont operator leaves the newly-scaled font dictionary 
on top of the stack with our variable name still residing beneath 
it. The def operator places these two objects into the user dic- 
tionary, with MainFont as the key and the font dictionary as that 
key’s value. 


/MainFont 
/Helvetica-Bold findfont 15 scalefont def 


The other two variables, SloganFont and OwnerFont are 
similarly defined. 


Assigning scaled font dictionaries to variables is a good practice 
in programs that frequently change fonts. Finding and scaling a 
font dictionary is a relatively time-consuming task. If a program 
does this once for each font and saves the result as a variable, it 
will run much more quickly than if it calls the findfont and 
scalefont operators for each font change. 


Five procedures are defined in this program. 


Rightshow prints a right-justified string (taken from the stack) in 
a 120-point-wide space. The first line of this procedure’s defini- 
tion 


dup stringwidth pop 
introduces a new operator: stringwidth. 


stringwidth takes a string from the top of the stack and replaces 
it with the horizontal and vertical distances the current point 
would be moved if the string were shown in the current font. The 
y offset is left on top of the stack, with x below it. Thus, the line 
above duplicates the string on the stack, replaces the top copy of 
the string with the x and y offsets, and then drops the y offset 
from the stack. The stack is left with the string’s width on top of 
the stack and the string itself below. 


The procedures CardOutline, doBorder, and Diamond all define 
closed paths. CardOutline and doBorder stroke their paths onto 
the current page, while Diamond fills its path with gray. 


Finally, doText prints the card’s lettering in a succession of 
movetos, setfonts, and rightshows. Note that the different fonts 
are set by calling one of the font-dictionary variables and then 
setfont. 
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5.3 OPERATOR SUMMARY 


findfont 


scalefont 


setfont 


show 


stringwidth 
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Character and Font Operators 


key => fdict 
Return dictionary for named font 


fdict n = fdict 
Return new scaled font dictionary 


fdict > — 
Set current font 


str > — 
Print str on the current page 


sr >xy 
Return width of str 


CHAPTER 6 


MORE GRAPHICS 


6.1 COORDINATE SYSTEMS 


/ 


Translation 


POSTSCRIPT graphics operators do their work within a coordi- 
nate system refered to as the user coordinate system or user 
space. This system is independent of any physical device; 
POSTSCRIPT operators draw in user space and the result is 
automatically transferred to the device coordinate system of a 
particular printer, that is, to device space. 


In our programs so far, we have been using the POSTSCRIPT 
default coordinate system. In this default user space, the origin is 
in the lower-left-hand corner of the current page and the unit of 
measure is the POSTSCRIPT unit of 1/72 inch. 


User space is malleable, however. Its coordinate system may be 
changed in position, orientation, and size. 


Translating User Space 


Translation is movement from one place to another. In the case 
of a coordinate system, it refers to movement of the origin. The 
POSTSCRIPT translate operator moves the origin of user space to 
the position specified on the stack. For example, the program 
line 
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100 200 translate 


would move the origin of the POSTSCRIPT coordinate system to 
the point (100,200). All future positions will be measured from 
this point on the current page. 


The following program illustrates the effects of translate. 


/Times-Roman findfont 30 scalefont setfont 


/square %procedure to draw a 
{ newpath % filled square 
er 0 0 moveto 
90 Olineto %define a square path 
90 90 lineto 
0 90 lineto 
eos closepath fill fill it 
ie 692 moveto % & label it 
(A Box) show } def 
A Box square %do a square 
200 250 translate %move coord. sys. 
square %do another square 
Translated Squares 200 250 translate %and move again 
square %do a third square 
showpage 


The procedure defined in this program draws a block whose 
lower left corner is at the origin of the current coordinate system. 
We obtained three different blocks in this program, not by 
changing the position of each box, but by translating the origin 
of the coordinate system on the current page. Note that the 
second translation was relative to the already-once-translated 
origin, not the default origin. 


Thus, there are two ways of drawing an object in several places. 
You can change the position of the object each time, substituting 
new coordinates where necessary, or you can construct the object 
at the same coordinates and move the coordinate system. 
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Rotation 


Rotated Squares 


1.25 1.25 scale 


——— 


+ 
2 .5 scale 


Rotation 
The POSTSCRIPT user coordinate system may also be rotated. 


The rotate operator takes a number from the stack and rotates 
the coordinate axes that many degrees counterclockwise. 


Let us again write a program that draws a box three times, trans- 
lated as before, but this time also rotated. 


/Times-Roman findfont 30 scalefont setfont 


/square %procedure from 
{ newpath % previous program 
00 moveto 
90 0 lineto 
90 90 lineto 
0 90 lineto 
closepath fill 
692 moveto %Label the box 
(A Box) show } def 


square %do a square 

300 150 translate %move coord. sys. 
60 rotate %and rotate it 

square %do it again... 

300 150 translate 

60 rotate 

square %do a third square 

showpage 


Again, we changed the position and orientation of the square by 
changing the coordinate system within which that square is 
defined. The actual definition of the square is unchanged. 


Scaling 


The scale operator allows you to change the size of the units 
used by POSTSCRIPT. This operator takes two arguments from 
the stack, an x and y scaling factor, and changes the size of the 
coordinate system’s units by those factors. For example, 
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A Box 


50 


A Box 


A Box 


Scaled Squares 


3 3 scale 


will triple the size of the coordinate system’s units; objects will 
be drawn three times as large as they would have been before 
this command was executed. 


Again, our box program: 


/Times-Roman findfont 30 scalefont setfont 


/square %procedure to draw a 
{ newpath % filled square 

0 0 moveto 

90 0 lineto 

90 90 lineto 

0 90 lineto 

closepath fill 

6 92 moveto %Label the box 

(A Box) show } def 


square %do a square 
100 100 translate 

1.51.5 scale 

square 


100 100 translate 
.75 1.25 scale %non-uniform scaling 
square 


showpage 


Notice that the second scaling was non-uniform; we scaled the x 
and y dimensions by different factors, making our square (and its 
label) appear narrow and tall. 


6.2 GRAPHICS STATE 


In our programs so far, we have been implicitly working within a 
graphics state, the set of data that describes how POSTSCRIPT 
operators will affect the current page. Among the information 
that makes up the current graphics state are the current path, 
point, gray value, font, line width, and user coordinate system. 


For a complete description of the graphics state, refer to the 
POSTSCRIPT Language Reference Manual. 
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Star 


Saving the Graphics State 


There are times when we would like to save the current graphics 
state so that we can return to it at a later time. 


For example, if we want to print a filled and outlined shape, such 


as the one at left, we would have to construct a suitable path and 
then fill it. Unfortunately, the fill operator clears the current path, 
leaving us with no path to stroke. It would be useful to save the 
current graphics state immediately before performing the fill and 
then restore the graphics state afterwards, recovering the path 
which could then be stroked. 


The operators that save and retrieve the current graphics state are 
gsave and grestore. The gsave operator saves a copy of the cur- 
rent graphics state on a graphics state stack. This stack can hold 
up to thirty-two graphics states, including the current graphics 
state. 


The grestore operator restores the most recently gsaved graphics 
state. All of the characteristics of the current graphics state, in- 
cluding the current path, gray value, line width, and user coordi- 
nate system, are returned to what they were when the gsave 
operator was called. 


Let us demonstrate the use of these operators with a program that 
draws a five-pointed star, filled and outlined. 


/starside 
{720 lineto %add line to path 
currentpoint translate %move origin 
—144 rotate } def %rotate coord. sys. 
/star %stack: x y 
{ moveto 


currentpoint translate 
4 {starside} repeat 
closepath 
gsave 

5 setgray fill 
grestore 
stroke } def 
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72 0 lineto 


currentpoint translate 


-144 rotate 


200 200 star 
showpage 


We have defined two procedures in this program. Starside draws 
one of the lines that make up the star; star draws a filled, out- 
lined star whose upper left point has the x and y coordinates 
specified on the stack. 


The starside procedure starts out by adding a horizontal line to 
the current path: 


72 0 lineto 


It then introduces a new operator, currentpoint, which pushes 
the x and y coordinates of the current point on the stack. The 
program line 


currentpoint translate 


thus puts the coordinates of the current point on the stack and 
then moves the origin of user space to that position. The origin is 
moved to the end of the line segment we just added to our path. 


The starside procedure then rotates the current coordinate system 
144 degrees clockwise. 


—144 rotate 


(Note the negative argument; positive angles are measured 
counterclockwise.) This rotation reorients the x-axis in the direc- 
tion of the next side of the star. 


The star procedure also introduces a new operator, repeat. 
4 {starside} repeat 


This operator requires two arguments: a number (4, in this case) 
and a set of operations enclosed in curly braces (here consisting 
of the procedure starside). The operations are carried out the 
number of times specified by the first operand. The line above 
will thus perform the starside procedure four times. 


This line is followed by a closepath, which completes the star- 
shaped path. 
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piatets as015. afl apsagiieretass, ats, a0ee 


4 {starside} repeat 
closepath 


fill 


grestore 


stroke 


We then fill in the star: 


gsave 
.5 setgray fill 
grestore 


Before we fill the star, we use the gsave operator to copy the 
current state on the graphics state stack. This is necessary be- 
cause we want to use the current path twice: once to fill and once 
to stroke. Having saved the graphics state, we set the gray level 
to .5 and fill the path. fill clears the current path. When we call 
grestore, the graphics state we duplicated earlier is restored as 
our current graphics state, returning the star-shaped path and a 
gray value of 0. 


The star procedure then strokes the resurrected current path. 
The main part of our program is only two lines long: 

200 200 star 

showpage 


This pushes 200 on the stack twice (as x and y coordinates) and 
calls the star procedure, constructing a star beginning at that 
point. The showpage operator then commits the contents of the 
current page to paper. 


6.3 CURVES 


Generally, graphic images are not composed exclusively of 
Straight line segments. To accomodate this, there are 
POSTSCRIPT operators to construct any desired curve. In this sec- 
tion, we shall discuss curves that are circular arcs. More complex 
curves may be defined using such operators as curveto (see the 
POSTSCRIPT Language Reference Manual). 


The are operator adds a circular arc to the current path. It re- 
quires five arguments on the stack: the x and y coordinates of the 
arc’s center of curvature, the radius of curvature, and the arc’s 
beginning and ending angles measured counterclockwise from 
the positive x axis. Thus, the program line 
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“a 


100 150 36 45 90 arc 


100 150 36 45 90 arcn 


i. 


. 


Two arcs 


100 150 36 45 90 arc 


would produce an arc-shaped path on the current page with a 
center 100 units to the right and 150 units above the origin, a 
radius of 36 units, extending counterclockwise from 45 to 90 


degrees (see illustration at left). 


The aren operator is similar to are, differing only in that it con- 
structs an arc in a clockwise direction. The line 


100 150 36 45 90 arcn 
produces a path shaped like that at left. 


The are and aren operators alter their behaviors slightly if a cur- 


rent point already exists when the operator is called. In this case, 
the operator will draw not only the specified arc, but also a line 
segment connecting the current point and the beginning of the 
arc. 


The following program illustrates this change by drawing similar 
arcs, first without and then with a current point. 


newpath 
300 400 54 40 140 arc stroke 


newpath 
300 365 moveto 
340 345 54 40 140 arc stroke 


showpage 


In the first case, no current point exists; the arc is simply drawn 
onto the current page as specifed. Before drawing the second arc, 
however, we moved the current point to the position 340,365; 
this time, the are operator drew a line connecting our current 
point to the beginning of the arc. 
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Ellipses 


Circles and Ellipses 


A circle is an arc extending from 0 to 360 degrees. An ellipse 
can be constructed by nonuniformly scaling the coordinate sys- 
tem and then drawing a circle. 


The program below draws a series of ellipses. 


/doACircle 
{ 0 0 54 0 360 arc stroke } def 


/doAnEllipse 
{1.75 scale 
doACircle 

stroke } def 


300 500 translate doACircle 


4 {0 —72 translate 
doAnEllipse} repeat 


showpage 


We begin by defining two procedures, doACircle, which draws a 
circle 54 units in radius with its center at the origin, and 
doAnEllipse, which draws an ellipse by scaling the y-dimension 
to three-quarters the x and then drawing a circle. 
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current 
point 


x1 yi x2 y2 r arcto 


The program translates the origin to a position above the middle 
of the page and draws a circle. Then the program does the fol- 
lowing operations four times, using a repeat operator: 


1. Move the coordinate origin down one inch (72 units). 


2. Draw an ellipse onto the current page. 


Note that although our loop specifies a one-inch distance be- 
tween the ellipses’ centers, the ellipses are not drawn one inch 
apart. This is because they are offset 72 points as measured in 
the current coordinate system, whose y-direction is scaled down 
by each ellipse. 


Note also that although we only specify a scaling factor of .75, 
the y axis becomes scaled much more than this during the 
program. Each ellipse scales the current coordinate system, 
which may already be scaled. Each ellipse reduces the vertical 
direction to three-quarters of what it was before. 


Rounding Corners 


Intersecting lines are frequently connected by round corners. The 
POSTSCRIPT arcto operator offers a convenient way to do this. 


The operator requires two points and a radius on the stack. It 
draws a line segment from the current point toward the first point 
listed on the stack. This segment terminates in an arc with the 
specified radius whose end is tangent to the line segment con- 
necting the two points specified on the stack (see illustration at 
left). The operator returns with the stack holding the x and y 
coordinates of the beginning and end of the arc. 


This becomes much clearer with an example. The following 
program draws a small x at each of three points, moves to the 
first of these, and then uses the other two points as arguments to 


arcto. 
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arcto 


/DrawAnX 

{3 3 rmoveto -6 -6 rlineto 
0 6 rmoveto 6 -6 rlineto 
stroke } def 


50 50 moveto DrawAnX 
50 150 moveto DrawAnX 
150 150 moveto DrawAnxX 


50 50 moveto 

50 150 150150 36 arcto 
4 {pop} repeat 

stroke 


showpage 


The results of this program are shown at left. After drawing the 
three X’s, the program moves the current point to 50,50, the 
lower left point. The arcto operator then starts drawing a line 
segment toward 50,/50 (in the upper left). Instead of extending 
up to the point, the line segment ends with an arc of radius 36 
that terminates tangent to the line connecting the top two points 
in the diagram. The current point is left at the end of the arc. 


Note that the arcto operator leaves the stack holding the num- 
bers 50, 114, 86, and 150, which represent the beginning and 
endpoint of the arc. Since we do not need these values, we drop 
them from the stack with a repeated pop operator. 


4 {pop} repeat 


Printing a Logo 


Let us use our curve-generating operators to print a logo for a 
movie named Omaha. This movie dwells on the loneliness of the 
Plains during the early nineteenth century and so its logo will be 
rather stark, consisting of a black background with the word 
“Omaha” rising from below and a gray circle, representing the 
full moon, behind. 
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/Helvetica-Bold findfont 27 scalefont setfont 


/fourpops 

{ 4 {pop} repeat } def 

/background %Black background 

{0 18 moveto % with rounded corners 


072 10872 18 arcto fourpops 
108 72 1080 18 arcto fourpops 
1080 00 18 arcto fourpops 
00 072 18 arcto fourpops 


fill } def 

/moon 

{ .6 setgray % set gray level 
81 45 18 0 360 arc fill % draw a circle 
} def % end of definition 

/omaha 

{ 1 setgray 
0-1 moveto 
1 2 scale % double y-scale 
(OMAHA) stringwidth pop % width of word 
108 exch sub 2 div % calc. indentation 
0 rmoveto % indent 
(OMAHA) show } def % & print 

Yo ------------ Begin Program ----------------- 

255 465 translate 

background 

moon 

omaha 

showpage 


This program follows the usual pattern of defining a series of 
procedures and then later calling them in sequence at the end of 
the source code. 


The first three procedures are reasonably straightforward. 
Fourpops drops four objects from the stack; this is used after the 
arcto operator to remove the coordinates left on the stack. The 
background procedure uses four arcto’s to construct a rectan- 
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gular path with rounded corners and then fills the path. Moon 
constructs a circular path and fills it with gray. 


The omaha procedure prints that name in white capital letters 
against the black background. Note that the line 


1 2 scale 


doubles the vertical scale of the coordinate system in use. This 
makes our letters taller than they would be otherwise. The lines 


(OMAHA) stringwidth pop 
108 exch sub 2 div 
0 rmoveto 


calculate the indentation needed to center the string OMAHA on 
the background. The first of these lines determines the printed 
width of the string; the second and third lines subtract this width 
from the total width of the background (108 units) and move half 
that amount to the right. 
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6.4 OPERATOR SUMMARY 


repeat 


rotate 


scale 


translate 


grestore 


gsave 


arc 


arcn 


arcto 


currentpoint 


Control Operators 


n proc > — 
Execute proc n times 


Coordinate Systems Operators 


angle => — 
Rotate user space angle degrees counterclockwise about origin 


xy>— 
Scale user space by x horizontally and y vertically 


xy>— 
Move origin of user space to (x,y) 


Graphics State Operators 


—— => — 
Restore graphics state from matching gsave 


—— => — 
Save current graphics state 


Path Construction Operators 


x yrang, ang, > — 

Add counterclockwise arc to current path 
xX yrang, ang, > — 

Add clockwise arc to current path 

XV Xo Vo = Xt, yt, Xt, yt, 

Build tangent arc 

—=>xy 

return coordinates of current point 
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CHAPTER i 


The POSTSCRIPT language has many operators for specifying the 
flow of control within a program. We used one of these, the 
repeat operator, in the previous chapter. All POSTSCRIPT control 
operators make use of an object type which we briefly mentioned 
before, the executable array, a more formal name for the object 
we have been calling a procedure. 


Executable Arrays 


An executable array, that is, a POSTSCRIPT procedure, is an array 
whose contents are to be executed by the POSTSCRIPT inter- 
preter. 


When the interpreter encounters a series of objects (values and 
names) in a program, it carries out the actions appropriate to 
those instructions, placing objects on the stack and looking up 
and executing operators and procedures. 


However, if a series of objects is enclosed in braces, it is not 
immediately executed, but is stored in an array and placed on the 
stack. Thus, the line 


86 23 add 


causes the interpreter to add the numbers 86 and 23 together, 
while the line 


61 


62 


{86 23 add} 


places the numbers and the operator add in an array, which is 
then placed on the stack. An executable array will often be 
preceded by a literal name and followed by a def operator, which 
associates it with the name in the current dictionary. (This is how 
named procedures are defined.) 


An executable array may also be used as an argument for a con- 
trol operator, such as repeat. In this case, the executable array 
holds the operations that are to take place when the conditions of 
the control operator are met. 


7.1. CONDITIONAL EXECUTION 


Comparisons 


The POSTSCRIPT language has a full set of comparison operators. 
These compare the top two items on the stack, which can be of 
any matching type, and return an object of type boolean, a true 
or false, on the stack. The POSTSCRIPT comparison operators, 
and their equivalent mathematical symbols, are: 


-eq = *ne # 
*gt > elt < 
*ge = ele < 


The boolean results of the above operators can be used with the 
POSTSCRIPT logical operators not, and, or, and xor. 


The if Operator 


The if operator takes a boolean object and an executable array 
from the stack and carries out the operations in the array if the 
boolean value is true. Thus, we could define a procedure for a 
text formatter that would check to see if the end of the current 
line had been reached: 
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/chkforendofline 

{ currentpoint pop %get x-position 
612 gt %greater than 612? 
{0 —12 translate 0 0 moveto} if 

} def 


This procedure obtains the position of the current point and 
throws away the y coordinate. It then compares the remaining x 
coordinate to see if it is beyond the right edge of the current 
page. If so, it carries out a set of operations that moves the coor- 
dinate origin and current point to the beginning of the next line. 


Let us write a program that will do very simple formatted print- 
ing of a series of strings. This program contains a procedure that 
takes a string off the stack, checks to see if that string will fit on 
the current line, moves to a new line, if necessary, and then 
prints the string. 


% -------------- Variables --------------- 

/LM 72 def %left margin 

/RM 216 def %right margin 

/ypos 720 def %current y-position 

/lineheight 14 def %distance between lines 

% of text 

% ------------- Procedures --------------- 

/newline %move to next line 

{ ypos lineheight sub %decrease ypos 
/ypos exch def %...& Save new value 
LM ypos moveto } def %move to next line 

/prtstr %stack: str 

{ dup stringwidth pop %calc. length of string 
currentpoint pop %get horiz. position 
add RM gt %sum > right margin? 
{newline} if %if so, next line 
show } def %print string 
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Tf you tell the truth, you 
don’t have to remember 
anything. - Mark Twain 


%o------------- Main Program -------------- 
/Times-ltalic findfont 13 scalefont setfont 


LM ypos moveto 

(If) prtstr (you ) prtstr (tell ) prtstr 
(the ) prtstr (truth, ) prtstr (you ) prtstr 
(don’t ) prtstr (have ) prtstr (to ) prtstr 
(remember ) prtstr (anything. ) prtstr 
(- Mark ) prtstr (Twain ) prtstr 


showpage 


Three variables are defined here. LM and RM are the left and 
right margins, repectively, within which the text is to be printed. 
Ypos is the vertical position of the current line on which text is 
being printed. Lineheight is the vertical distance that will 
separate lines of text. 


The procedure newline moves the current point to the beginning 
of the next line. It decreases ypos by lineheight, defining the 
result to be the new value of ypos: 


ypos lineheight sub 
/ypos exch def 


It then moves the current point to the left margin at the vertical 
position determined by ypos. 


LM ypos moveto 


The second procedure defined in this program, prtstr, checks to 
see if the string on the stack will fit on the current line, moves to 
the next line, if appropriate, and prints the string. 


The procedure first duplicates the string to be printed, and then 
calculates its length by using stringwidth and dropping the y 
value. 


dup stringwidth pop 


The procedure then determines the x position of the current 
point. 


currentpoint pop 
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These two values are added and the sum is compared to the right 
margin to see if the word would run beyond the margin. 


add RM gt 


If so, the newline procedure is called. In either case, the string, 
still on the stack, is printed. 


{newline} if 
show 


In the main part of the program, the current point is moved to its 
beginning position and then the text is printed, one word at a 
time. 


This is a very primitive text formatter, unable to parse lines of 
text into words. A more sophisticated formatter is presented in 
the POSTSCRIPT Language Cookbook. 


The ifelse Operator 


The second POSTSCRIPT conditional operator requires three ob- 
jects on the stack: a boolean value and two executable arrays. 
The first array placed on the stack will be executed if the boolean 
value is true; the second array will be executed if the boolean 
object is false. That is, the program line 


bool {op1} {op2} ifelse 
will execute op/ if bool is true and op2 otherwise. 


The program below uses the ifelse operator to produce a stack of 
overlapping trapezoids of alternating gray shade and decreasing 
height. The height is varied by changing the vertical scale for 
each trapezoid as determined by the variable scalefactor. The 
gray shade is alternated by counting the trapezoids as they are 
constructed and filling even trapezoids with gray and odds with 
black. The variable counter holds the number of the current 
trapezoid. 
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Yo ~--=--~ Variables & Procedures --------- 
/scalefactor 1 def 


/counter 0 def 

/DecreaseScale 

{ scalefactor .2 sub 
/scalefactor exch def } def 


/IncreaseCounter 
{ /counter counter 1 add def } def 


/trappath %construct a trapezoid 
{00 moveto 90 0 rlineto 
—20 45 rlineto —50 0 rlineto 
closepath } def 


/doATrap 

{ gsave 
1 scalefactor scale %scale vert. axis 
trappath %construct path 
counter 2 mod %is counter even? 
0 eq {.5} {0} ifelse %choose grey or black 
setgray fill 

grestore } def %restore scale, etc. 

% ------------ Begin Program ---------- 

250 350 translate 

5 

{lncreaseCounter 

doATrap 


DecreaseScale 
0 20 translate } repeat 


showpage 


The procedures DecreaseScale and IncreaseCounter do what 
their names imply, the former decreasing scale by .2, the latter 
increasing counter by 1. 


The trappath procedure constructs a trapezoidal path with its 
lower left corner at the origin. Successive trapezoids are offset 
by translating the coordinate system. 
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Finally, the doATrap procedure scales the current coordinate sys- 
tem, constructs a trapezoidal path (using trappath), and then cal- 
culates counter modulo 2. 


1 scalefactor scale 
trappath 
counter 2 mod 


The modulo operation will yield a 0 if counter is even and a / if 
counter is odd. 


We then use the ifelse operator. 


0 eq {.5} {0} ifelse 
setgray fill 


We test the results of the mod operation, place two executable 
arrays (holding alternative values for setgray) on the stack, and 
call the ifelse operator. The ifelse operator executes one of the 
executable arrays, causing either a .5 or a 0 to be placed on the 
stack, depending on whether the result of the eq operator was 
true or false. DoATrap then calls the setgray operator and fills 
the current path. 


After defining the necessary procedures, the program translates 
to a point below the center of the current page and implements a 
repeat loop that repeatedly increases counter and prints a 
trapezoid, and then prepares for the next trapezoid by decreasing 
scale and translating the origin. 


5 

{IncreaseCounter 
doATrap 
DecreaseScale 

0 20 translate } repeat 


7.2 LOOPS 


There are three POSTSCRIPT operators for establishing and con- 
trolling program loops. We have already used the repeat 
operator. The for operator controls an indexed loop similar to the 
For...To...Next structures in other languages; the loop and exit 
operators implement an indeterminate loop that continues until a 
specified condition is met. 
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The for Operator 


The POSTSCRIPT for operator implements a counting loop. This 
operator takes four operands: the loop counter’s starting value, 
increment amount, and final value, and the procedure to be 
repeated. The for operator places the current value of the counter 
on the stack immediately before each execution of the procedure. 


For example, the following program line, embedded in the 
proper program, would cause the letter “k” to be printed every 
twelve units across the page: 


0 12 600 {0 moveto (k) show } for 


Each multiple of twelve from zero to 600 will be pushed onto the 
stack and the set of operations run. 


The numeric operands of for need not be integers. Consider the 
following program: 


/Times-ltalic findfont 30 scalefont setfont 
/printZip 


{00 moveto (Zip) show} def 
320 400 translate 


95 -.05 0 % start incr. end 
{setgray printZip —1 .5 translate } for 


1 setgray printZip 
showpage 


This program starts by establishing a 30-point Times Italic as the 
current font. The procedure printZip is then defined and the 
origin of the current coordinate system is moved to the middle of 
the current page. 


We then begin a for loop. The numbers .95, -.05, and 0 are 
placed on the stack, followed by the executable array 


{setgray printZip —1 .5 translate} 


The for operator repeats these operations for each value of the 
loop counter from .95 down to 0. 
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After the loop terminates, the gray value is set to white and the 
word Zip is printed one last time. 


1 setgray printZip 


loop and exit 


Many procedures need to be repeated an indefinite number of 
times, either forever or until some condition is met. Other lan- 
guages meet this need with such constructs as Pascal’s 
repeat...until. POSTSCRIPT provides a pair of operators: loop and 
exit. 


The loop operator takes a procedure as its operand and executes 
it repeatedly until it encounters an exit command within the pro- 
cedure. exit causes a program to leave the innermost loop con- 
taining that operator. The exit operator will also terminate loops 
started by the for, repeat, and forall operators. (See section 8.2 
for a discussion of the forall operator.) 


Thus, the program line 
{(Howdy ) show} loop 


would cause the string Howdy to be repeatedly printed across the 
page and beyond. Since there is no exit in the repeated instruc- 
tions, this line represents an infinite loop. 


To see how the loop-exit pair work together, let’s examine the 
following program, which draws several strings of circles across 
the width of the current page. 


/pagewidth 8.5 72 mul def 


/doCircle 
{ xpos ypos radius 0 360 arc stroke} def 
/increase-x 
{ xpos radius add 
/xpos exch def } def 
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/lineofcircles %stack: radius y 
{ /ypos exch def %define ypos 
/radius exch def % ...& radius 
/xpos 0 def % ...& XPOS 
{xpos pagewidth le %begin loop 

{doCircle increase-x} 

{exit} ifelse 

}loop %end loop 

} def %end definition 
% --------------- Begin Program ----------- 
10 400 lineofcircles 
30 400 lineofcircles 
90 400 lineofcircles 


CO OCDCODO CHOCO CHOC DOC DOC COCROT ODOC 
SAAB 


showpage 


The variable pagewidth holds the width of a standard 8.5-inch 
page in POSTSCRIPT units. The procedure doCircle draws a 
circle on the current page; the circle’s center is at xpos,ypos and 
its radius is radius. These variables are given values later in the 
program. 


The increase-x procedure increases the value of xpos by the 
radius, in effect moving the center of the next circle over by that 
amount. 


The last procedure defined, lineofcircles, requires two numbers 
on the stack: the circles’ radius and the vertical position of their 
centers. These arguments are assigned to appropriate variables 
(radius and ypos) and xpos is defined as 0. 


/ypos exch def 
/radius exch def 
/xpos 0 def 


Next, a loop repeatedly draws circles. 


{xpos pagewidth le 
{doCircle increase-x}{exit} ifelse 
}loop 


These lines check to see if the current horizontal position is less 
than or equal to the width of the paper. If so, then the procedure 
draws a circle onto the current page and increases xpos. If the 
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VY 
Ls 


SOC) 
NZS 


ZS WNC 
POCEO CEE: 
SZ SAINZS 


I!=1 

2!=2 

3!=6 

4! = 24 

5! = 120 

6! = 720 

7! = 5040 

8! = 40320 

9! = 362880 
10! = 3628800 


horizontal position is off the right side of the page, that is, if the 
result of the le procedure is false, the exit procedure causes the 
interpreter to leave the loop. 


Finally, the program does three lines of circles, all at the same 


vertical position. 


10 400 lineofcircles 
30 400 lineofcircles 
90 400 lineofcircles 


Recursion 


A loop can be set up in a program by having a procedure call 
itself, a process called recursion. The recursive calling of a pro- 
cedure can be a powerful—and somewhat tricky—tool. The 
program must define some conditions under which the procedure 
does not call itself. 


Let us demonstrate recursion in a POSTSCRIPT program that 
prints a table of factorials for the numbers from one to ten. The 
factorial of a number is the product of all the integers from one 
to that number. The recursive procedure here will be factorial, 
which will define n-factorial to be / if nm is one and 
nx(n—I factorial) otherwise. 


/LM 72 def 
/Times-Roman findfont 15 scalefont setfont 
/nstr 7 string def 


/newline 

{ currentpoint 16 sub %decrement y-position 
exch pop %drop old x... 
LM exch % replace it with LM... 


moveto} def % & go there 
/factorial %stack: n --- n! (after) 
{dup 1 gt 

{dup 1 sub factorial mul} if 
} def 


/prt-n % stack: n 
{ nstr cvs show } def 
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/prtFactorial %stack: n 
{ dup prt-n %print n 
(!=) show 
factorial prt-n %print n! 
newline} def 
% ----------- Program --------------- 
LM 600 moveto 
1110 {prtFactorial} for 
showpage 


The third line in this program, 
/nstr 7 string def 


defines a string variable using the string operator. This operator 
takes an integer from the stack and creates a new string with the 
specified length. The string’s contents are null characters. 


The newline procedure, as in our formatting program, moves the 
current point to the beginning of the next line of text. Note that 
this version of the procedure takes a somewhat different ap- 
proach than the last, getting the current vertical position from the 
currentpoint operator, rather than keeping this value in a vari- 
able. 


Factorial is the recursive procedure in this program. 


/factorial 
{dup 1 gt 

{dup 1 sub factorial mul} if 
} def 


The procedure duplicates the number on the stack and checks to 
see if it is greater than J. If so, the number is multiplied by the 
result of calling factorial with its numeric predecessor. If the 
number is not greater than one, then no action is taken, and the 
function returns with that number (i.e., 7) on the stack. The result 
is that factorial returns with the stack holding the factorial of the 
specified number. 


The third procedure, prt-n, prints the number on top of the stack. 
It introduces a new operator, cvs. 
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/prt-n % stack: n 
{ nstr cvs show } def 


The POSTSCRIPT show operator can only take a string as its ar- 
gument. Anything that is to be printed must first be converted to 
a string. This is the function of the cvs operator. This operator’s 
arguments consist of an object and a string. The object is con- 
verted into a string representation which is stored in the specified 
string and left on the stack. For boolean objects, evs will return 
the strings true or false; names, operators, and numbers will 
return their text representations. 


The string argument given to cvs must have enough characters to 
hold the string representation generated. Prt-n converts the num- 
ber on the stack to a string whose maximum length is seven, 
determined by the seven-character string it puts on the stack be- 
fore calling cvs. 


PrtFactorial prints the number on the stack and its factorial, then 
moves to the next line. 


/prtFactorial 

{ dup prt-n 
(! =) show 
factorial prt-n 
newline} def 


The program then moves to the top of the current page and ex- 
ecutes the prtFactorial procedure for each integer from one to 
ten. 


LM 600 moveto 
1110 {prtFactorial} for 


Recursive Graphics 


Recursion applied to graphics can yield quite impressive and in- 
tricate results. We shall end this chapter with an example of 
recursive graphics. Our program will produce a fractal, a figure 
whose structure at any scale mirrors the figure’s overall struc- 
ture. 


In this case, we shall produce a fractal arrow. 
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/depth 0 def 


/maxdepth 10 def 
/down {/depth depth 1 add def} def 
/up {/depth depth 1 sub def } def 


/DoLine %printa vert. line 


Fractal Arrow { 0 144 rlineto currentpoint 
stroke translate 0 0 moveto} def 
/FractArrow 
{gsave .7 .7 scale %reduce scale 
10 setlinewidth %set line width 
down DoLine %print line 
depth maxdepth le %depth<max. depth? 


{ 135 rotate FractArrow 
—270 rotate FractArrow} if 
up grestore } def 


% ---~-------- Begin Program ---------------- 
300 400 moveto 
FractArrow 
stroke 
depth = 4 showpage 
The two variables defined in this program control the recursion 
of the procedure FractArrow. The variable depth holds a number 
that represents the current “depth” of recursion. This variable is 
incremented at the beginning of every FractArrow call and 
decremented at the end. 
depth = 2 : ; 
The maxdepth variable holds the maximum value allowed for 
depth. FractArrow will stop calling itself when depth is equal to 
maxdepth. 
The recursive procedure FractArrow starts by saving the 
graphics state and then scaling down the coordinate system. 
Z gsave 
Peps 7 .7 scale 


The line width is set to ten, depth is increased, and a line seg- 
ment is drawn onto the page. 
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Fractal Arrow with the reduction 
factor changed from .7 to .6 


Fractal Arrow with constant 
line width and reduction = 0.5 


10 setlinewidth 
down DoLine 


Note that each successive recursion will yield shorter and thinner 
line segments, since the scale is being decreased with each recur- 
sion. 


Depth and maxdepth are compared, and if the former is not 


greater than the latter, the recursive part of the procedure is 
carried out. 


depth maxdepth le 
{ 135 rotate FractArrow 
—270 rotate FractArrow} if 


The if operator’s argument calls FractArrow twice, once after a 
counterclockwise rotation and again after a clockwise rotation. 
These calls to FractArrow, in turn, repeat the process. Each 
draws a vertical line —rotated to some other direction on the 
current page —and then, if depth is still small enough, executes 
FractArrow twice again. Each call to FractArrow generates two 
more such calls until depth finally reaches maxdepth. 


The FractArrow procedure ends by decreasing depth and restor- 
ing the graphics state to what it had been at the beginning of the 
procedure. 


The image this program produces changes considerably with 
changes in the maximum depth, the factor by which user’s space 
is scaled, the length of the line segment drawn by FractArrow, 
and the angles through which user’s space is rotated. 
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7.3 OPERATOR SUMMARY 


Control Operators 


exit —>— 
Exit innermost for, loop, or repeat 


for jk1 proc > — 
For i =/ to / step k do proc 


if bool proc > — 
If bool is true, then do proc 


ifelse bool proc, procs = — 
If bool is true then do proc,, else do proc, 


loop proc > — 
Repeat proc forever 


String and Conversion Operators 


string n=>str 
Create string of length n 


cvs obstr=> str 
Convert to string 


Relational Operators 


eq ob, ob, = bool 
Test for equality 


ne ob, ob, => bool 
Test for inequality 


gt n/str, n/str, = bool 
Test for greater than 


ge r/str, n/str, = bool 
Test for greater than or equal to 


It n/str, n/str, => bool 
Test for less than 


le n/str, n/str, = bool 
Test for less than or equal to 
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CHAPTER 8 


ARRAYS 


8.1 POSTSCRIPT ARRAYS 


POSTSCRIPT arrays are one-dimensional collections of objects. 
These objects are numbered from zero, so that a ten-item array is 
numbered from zero to nine. POSTSCRIPT arrays are different 
from those in other languages in that their elements need not all 
be of the same type. That is, a single array may contain, for 
example, strings, integers, dictionaries, and other arrays. 


An array in a program is denoted by any collection of 
POSTSCRIPT objects surrounded by square brackets. Thus, the 
lines 


[16 (twelve) 8] 
[(sum) 6 14 add] 


both set up arrays. The first has three members: two numbers and 
a string. The second array has two items in it: the string sum and 
the number 20. (Note that operators within an array definition 
are carried out as the array is being defined.) 


Arrays may also be defined by the array operator. This operator 
takes a number from the stack and constructs an array of that 
length. The line 


10 array 
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78 


would leave a ten-place array on the stack. The elements of this 
array are initially all POSTSCRIPT null objects. 


Marks 


When an array is created with a line such as 
[1 2 3 (OLeary)] 


the square brackets play a more active role than is immediately 
evident. The left bracket is a POSTSCRIPT operator that leaves an 
object called a mark on the stack. 


As the interpreter continues through the program line, it puts 
more objects on the stack until it encounters a right bracket, 
which is an operator that creates an array containing the stack 
contents back to the topmost mark. The mark is dropped from 
the stack and the array remains. 


Composite Objects 


POSTSCRIPT arrays, strings, and dictionaries are examples of 
composite objects. These objects have values that are separate 
from the object itself. That is, the character codes making up a 
string are stored in a different location in a POSTSCRIPT machine 
than the string object that POSTSCRIPT directly manipulates. 


Note that composite objects can share values. A dup operation 
on a string duplicates the object, but not its value. The duplicate 
object looks to the same place in the machine’s memory for its 
value. 
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Storing & Fetching Array Members: put and get 


The put and get operators store and fetch array information. put 
takes three arguments from the stack: an array, an index, and an 
object. It puts the object into the array at the position specified 
by the index. That is, 


/AnArray 10 array def 
AnArray 8 (language) put] 


would put the string /anguage into the ninth position in AnArray. 
(Remember that the positions within an array are counted from 
Zero.) 


get takes an array and an index from the stack and returns the 
object occupying the specified position within the array. The line 


[2 5 9] 1 get 
would return with the number 5 on the stack. 


The following program defines a procedure that uses get to print 
the contents of an array. It also introduces a new operator, 
length, which returns the number of objects in an array. 


Yo -nnnnnnnnn ne Variables & Procedures ---------- 
/LM 72 def %Left margin 
/Tempstr 30 string def 


/Helvetica findfont 12 scalefont setfont 


/crlf %next line 
{ currentpoint 13 sub 

exch pop LM exch moveto } def 
/aryshow % stack: array 


{ /ary exch def %put array in var. 
0 1 ary length 1 sub %loop parameters 
{ ary exch get %get array member 
Tempstr cvs %convert to string 
show crif } for %print & next line 
} def 
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mouse 

27 

aName 
--nostringval-- 
--nostringval-- 
0 
--nostringval-- 


80 Chapter 8: ARRAYS 


LM 600 moveto 


%begin array: 


[(mouse) %string 

27 Ynumber 

/aName %literal 

[6 12] array 

{crlf} %executable 

LM %Vvariable 

/Helvetica findfont %font dictionary 
] 

aryshow 
showpage 


This program defines a variable, LM, sets the current font to 
twelve-point Helvetica, and defines the crif procedure that we 
have seen before. It then defines a procedure that prints an 
array’s contents. 


/aryshow % array => --- 
{ /ary exch def 
0 1 ary length 1 sub 
{ ary exch get 
Tempstr cvs 
show crlf} for 
} def 


This procedure takes an array from the stack and places it into a 
variable, ary. It then starts a for loop that will count from zero to 
one less than the number of items in ary. (Again, an array with n 
items will number those items from 0 to n-/.) 


The for procedure uses the counter, automatically pushed onto 
the stack, as an index to fetch an item from ary. 


ary exch get 


The object obtained is converted to a string representation of up 
to thirty characters (determined by the initial definition of 
Tempstr) and printed on the current page. 


aName 
--nostringval-- 
--nostringval-- 
0 
--nostringval-- 


Tempstr cvs 
show crlf 


After defining aryshow, the program moves to the top of the 
page and places a seven item array on the stack. 


LM 600 moveto 


%Begin array: 
[(mouse) 


/aName 

[6 12] 

{crlf} 

LM 

/Helvetica findfont] 


This array becomes the argument for the aryshow procedure. 


Note the manner in which the different objects are printed. The 
string, name, number, and variable have their values printed as 
you would expect. The array, procedure, and font dictionary are 
represented by the string --nostringval--, because cvs is unable to 
produce a string representation for these objects. 


“Automatic” Loops: forall 


Programs often need to perform a set of operations on each 
member of an array. To simplify this procedure, POSTSCRIPT 
defines a forall operator that takes an array and a procedure as 
operands. The procedure is performed on each member of the 
array. Thus, 


AnArray {30 string cvs show} forall 
would print each member of AnArray on the current page. 


We can use the forall operator to simplify the text formatter we 
wrote in the previous chapter. 
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Yo wnnmnn nnn nnnn Variables --------------- 

/LM 72 def %right margin 

/RM 216 def %left margin 

/ypos 720 def %current y-position 
/lineheight 11 def %distance between lines 


% of text 
% ------------- Procedures --------------- 
Concience is the inner voice that /erlf Ymove to next line 
warns us somebody may be looking : : 
- Mencken { ypos lineheight sub %decrease ypos 
/ypos exch def % ...& Save new value 
LM ypos moveto } def Ymove to next line 
/prtstr %stack: str 
{ dup stringwidth pop %calc. length of string 
currentpoint pop %get hor. position 
add RM gt % sum > right margin? 
{crlf} if %if so, carriage return 
show } def %print string 


/format %stack: [string array] 

{ {prtstr () show} forall 

} def 

%o------------- Main Program -------------- 
/Times-ltalic findfont 10 scalefont setfont 


LM ypos moveto 


%Text array: 
[(Concience)(is)(the)(inner) (voice) 
(that) (warns) (us)(Somebody)(may)(be) 
(looking)( - Mencken) ] 

format 


showpage 


Most of this program is identical to the formatter in the previous 
chapter. The difference is in the inclusion of the format proce- 
dure, which takes an array of strings from the stack and uses 
each member as an argument for prtstr. 


/format 
{ {prtstr () show} forall 
} def 


Notice that format prints a space after each string. 
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Our text can now be placed in an array of one-word strings and 
printed with the format procedure, which is exactly what the 
program does. 


Polymorphic Operators 


The length, put, get, and forall operators are actually 
polymorphic operators. These can operate on arrays, strings, or 
dictionaries. length will return the number of characters in a 
string, elements in an array, or key-value pairs in a dictionary. 
The other three operators give you access to individual charac- 
ters, array elements, or key-value pairs. For more information on 
the use of these operators, refer to the next chapter of this 
Tutorial, the POSTSCRIPT Language Reference Manual, and the 
POSTSCRIPT Language Cookbook. 


All At Once: aload and astore 


Two POSTSCRIPT operators allow you to store or load the entire 
contents of an array at once. The aload operator takes an array as 
its argument and places the individual elements of that array, and 
then the array itself, on the stack. Thus, the line 


[1 2 3] aload 
would result in the following stack contents: 
123 [123] 


astore works in the opposite direction, taking several objects and 
an array off the stack, and placing all of the objects into the 
array, which is left on the stack. There must be at least as many 
objects on the stack as there are places within the array or an 
error will result. The line 


(a) (b) (c) (d) 4 array astore 
would leave the array 

[(a) (6) (c) (d)] 
on the stack. 


The following program uses aload to print a sample of some of 
the standard POSTSCRIPT typefaces. 
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The five boxing wizards jump quickly. 
The five boxing wizards jump quickly. 
Tne oe BoEvy aiCapdo over OvIYKAW. 
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Yo mnnmnn no Variables & procedures ------- 
/LM 72 def 


/newline 

{ currentpoint 10 sub 
exch pop LM exch 
moveto } def 


/PrintSample % [string fontname] 
{ aload pop %unload array 
findfont 8 scalefont setfont %set font 
show newline } def %print string 
/FontList [ %begin array: 
[(The five boxing wizards jump quickly.) 
/Helvetica] 
[(The five boxing wizards jump quickly.) 
/Times-Roman] 
[(The five boxing wizards jump quickly.) 


/Symbol] 
] def %end array 
% ------------ Begin Program ---------- 


LM 600 moveto 
FontList {PrintSample} forall 
showpage 
LM and newline are familiar to us from past programs. 


The PrintSample procedure takes an array as its argument; this 
array should hold a string and the literal name of a font. 


/PrintSample% [string fontname] 
{ aload pop 
findfont 8 scalefont setfont 
show newline } def 


The procedure uses an aload to unload the contents of the array 
onto the stack and a pop to remove the copy of the array itself 
left on the stack by aload. PrintSample sets the current font to 
the font named in the array and then prints the string on the cur- 
rent page. 


FontList is an array made up of two-item arrays of the form 
needed by PrintSample. Each of these smaller arrays is made up 
of a string and the name of a font, for example 


[(The five boxing wizards jump quickly.) 
/Helvetica] 


Finally, the program moves the current point to the top of the 
page, puts the FontList array onto the stack and calls 
PrintSample for each item within the array. 


FontList {PrintSample} forall 


Note that the Symbol font prints Greek symbols in the place of 
English letters. 
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8.3 OPERATOR SUMMARY 


aload 


array 


astore 


forall 


get 


length 


put 


mark 


Chapter 8: ARRAYS 


Array Operators 


— => mark 
Start array construction 


mark ob ...ob; => array 
End array construction 


ary => oby...0b,_; ary 
Get all elements of an array 


n= ary 
Create array of size n 


Ob,...0b,_, ary = ary 
Put elements from stack into array 


Polymorphic Operators 


ary/dict/str proc => — 
For each element do proc 


ary/dict/str index/key => value 
Get value of index/key in object 


dict/str/ary > n 
Length of object 


ary/dict/str index/key value => — 
Put value into object at index/key 


Stack Operators 


— => mark 
Push mark onto stack (same as [) 
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MORE FONTS 


9.1 DIFFERENT SHOWS 


Printing a document usually requires more than printing the 
words that make up the text. The text often must be justified 
between page margins and the spacing between individual 
characters may need to be adjusted. To help with these tasks, the 
POSTSCRIPT language has four variations of the show operator 
that allow text to be adjusted for esthetic appeal. These operators 
are: 


e ashow 
Print a string, adding a specified amount of space after each 
character. 


e widthshow 
Print a string, adding space after each occurrence of a 
specified character (e.g., after each space). 


e awidthshow 
Combine the above, adding space after each character and 
adding a separately specified offset after each occurrence of 
a particular character. 


e kshow 
Execute a specified procedure between each pair of charac- 
ters in the string. The current character and the character 
following are passed as arguments to the procedures. 
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For details on these operators, refer to the POSTSCRIPT Language 
Reference Manual. 


We shall look more closely at the fourth operator, kshow. This 
operator takes a procedure and a string off the stack. After each 
character in the string is printed, that character and the one that 
follows it are placed on the stack, and the procedure is executed. 
This happens for each character within the string except the last. 
The final character is simply printed. Thus, the line 


{pop pop (-) show} (hyphens) kshow 


would drop two items from the stack and print a hyphen between 
each pair of letters in the word hyphens. 


h-y-p-h-e-n-s 


Note that in this case we popped the pair of characters left by 
kshow off the stack, since our procedure does not use them. 


kshow was specifically designed to allow easy kerning, adjust- 
ing inter-letter spacing to achieve a more pleasing appearance. 
However, this operator may be used for other purposes, since the 
procedure handed to it as an operand may perform any operation. 


For example, the program below repeatedly prints the words 
Binky Inc. until the entire current page is filled. The procedure 
passed to kshow calls the newline procedure whenever the cur- 
rent point moves past the right margin. Once the page is filled, 
Binky Inc. is printed again in the center of the page in thirty- 
point type. 


c. Binky Inc. Binky Inc. Binky Inc. Binky Inc. Binky Inc. Binky Inc. Binky 
Inc. Binky Inc. Binky Inc. Binky Inc. Binky Inc. Binky Inc. Binky Inc. Bi 
ky Inc. Binky Inc. Binky Inc. Binky Inc. Binky Inc. Binky Inc. Binky Inc. | 


inky Inc. Binky Inc hel Inc. Bink y a n Inc. Binky Inc. Binky Inc 
Binky Inc. Binky I Feats Binky Inc. Binky |] 
nc. Binky Inc. Bink 5 betes Binky Inc. Bink 


y Inc. Binky Inc. Binky I TH Yobt} ine. Binky Inc. Binky Inc. B 
inky Inc. Binky Inc. Binky Inc. Binky ine. Binky Inc. Binky Inc. Binky Inc 
Binky Inc. Binky Inc. Binky Inc. Binky Inc. Binky Inc. Binky Inc. Binky | 


% ------- Variables and Procedures -------- 

/TM 780 def %Top Margin 

/BM-12def %Bottom 

/LM 0 def %Left 

/RM 612 def %Right 

/newline 

{ currentpoint 13 sub 
exch pop LM 
exch moveto } def 

/nlifNec 

{ currentpoint pop RM gt %beyond RM? 
{newline} if } def %yes: next line 


/done? %Stack: --- bool. 
{ currentpoint exch pop %Below BM? 
BM It } def 
/fillpage % stack: str 
{ /strg exch def 
{ {pop pop nllfNec} strg kshow 
done? {exit} if 
} loop 
} def 
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% ------------ Begin Program ----------- 
/Times-Bold findfont 10 scalefont setfont 
LM TM moveto 

.5 setgray 

(Binky Inc. ) fillpage 


/Times-Roman findfont 30 scalefont setfont 


RM LM sub %center the words 
(Binky Inc.) stringwidth pop sub 

2 div 

400 moveto 


0 setgray 
(Binky Inc.) show 


showpage 


The program begins, as usual, by defining several variables and 
procedures. The variables define the positions of the margins 
within which the text is to be printed, in this case the edges of 
the current page. 


The procedure nlIfnec calls newline if the current point is beyond 
the right margin. Done? returns a boolean true or false, depend- 
ing on whether the current point is below or above the bottom 
margin. 


The fillpage procedure 


/fillpage 
{ /strg exch def 
{ {pop pop nllfNec} strg kshow 
done? {exit} if 
} loop 
} def 


takes a string off the stack and places it in a variable srg. It then 
starts a loop which places a procedure and strg on the stack and 
executes the kshow operator. The procedure executed between 
characters pops the two character codes left by kshow off the 
stack (since we do not use them here) and then calls the nlIfNec 
procedure. Once the string has been printed, the done? procedure 
determines whether the current point is off the bottom of the 


page. If so, fillpage quits; otherwise, it repeats, printing strg 
again. 


The main part of the program sets the current font to a ten-point 
Times Bold, moves to the top left of the current page, sets the 
gray value to .5, and fills the page with the words Binky Inc. 


/Times-Bold findfont 10 scalefont setfont 


LM TM moveto 
.5 setgray 
(Binky Inc. ) fillpage 


It then prints the thirty-point Binky Inc. 


RM LM sub %center the words 
(Binky Inc.) stringwidth pop sub 

2 div0 

400 moveto 


0 setgray 
(Binky Inc.) show 


9.2 CHARACTER ENCODING 


Computer systems handle text by assigning a numeric code to 
each character recognized by the system. This set of codes is 
referred to as an encoding of the character set. One widespread 
encoding is the familiar ASCII character code. 


Each POSTSCRIPT font dictionary contains the encoding for its 
characters. Each character in the font is associated with an in- 
teger from 0 to 255. The standard encoding for the alphanumeric 
fonts, such as Times and Helvetica, is similar to the ASCII stan- 
dard. It is important to note that a font’s encoding is not fixed 
and may be changed to anything convenient for an application 
program. For details on how to change the encoding of a font, 
see the POSTSCRIPT Language Cookbook. 


Many of the characters within a POSTSCRIPT font have no cor- 
responding key on a computer keyboard and can only be referred 
to by their codes. Many fonts also have characters which do not 
have codes in the standard encoding and must be assigned a code 
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161 j 225 

162 ¢ 226 before they can be used (see POSTSCRIPT Language Cookbook). 
163 £ 227 * For a complete list of the characters and corresponding codes 
164 / 228 available in the standard POSTSCRIPT fonts, refer to the 
He : a POSTSCRIPT Language Reference Manual. 

ie : pe b Character codes may be directly used in two ways: they may be 
169 ' 233 @O inserted into a string with a put operation or used directly in a 
170 «“ 234 string as an octal (base eight) number. 

171 « 235 ° 

es : me Putting Codes Into Strings 

174 fi 238 : 

175 fl 239 The following program uses put to generate a table of the 
176 240 characters whose standard codes are greater than 160. Note that 
177 - 241 # some of the codes listed have no characters associated with 
178 + 242 them. 

179 ¢£ 243 

180 - 244 %o -------- Variables & Procedures --------- 

181 245 1 /Times-Roman findfont 10 scalefont setfont 

182 246 

183 ° 247 /char 1 string def 

184 , 248 1 /nstr 3 string def 

185 ,, 249 ¢ 

186 ” 250 © /newline 

Fe y 251 6 { currentpoint 11 sub 

189 %, exch pop LM 

190 exch moveto } def 

191 3 (/prt-n %stack: code 

192 {nstr cvs show} def 

193 * 

194 ° /prtchar %stack: code 

195 * { char 0 

196 ~ 3-1 roll put 

197 ~ char show } def 

198 ~ 

a ; /PrintCodeandChar %stack: code 

01 { dup prt-n 

2 ° ( ) show . 

03 prtchar newline } def 

204 % ---------- Begin Program ---------- 

205 ” /LM 72 def 

206 . LM 600 moveto 

207 ~ 161 1 208 {PrintCodeandChar} for 

208 — 
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/LM 144 def 
LM 600 moveto 
225 1 251 {PrintCodeandChar} for 


showpage 


The prt-n procedure defined above takes a number from the 
stack and prints it on the current page. 


Prtchar takes a numeric code from the stack and prints the cor- 
respoding character. The procedure does this by putting the num- 
ber into a one-character string and then printing the string. The 
first line 


char 0 


places the string and the index for the put on the stack. (Note 
that the only position in a one-character string is zero.) The next 
line 


3 —1 roll put 


brings the numeric code to the top of the stack and puts it into 
char. Finally, the procedure prints char, which now contains our 
character code. 


The procedure PrintCodeandChar calls prt-n, prints three 
spaces, and then calls prtchar, thereby printing one line of our 
table. 


/PrintCodeandChar %stack: code 
{ dup prt-n 

( ) show 

prtchar newline } def 


The program itself sets LM, our left margin, to 72, moves to the 
top of the page, and then calls PrintCodeandChar for each num- 
ber between /6/ and 208. It then resets the left margin to /44 
and prints table entries for the numbers from 225 to 25/. The 
codes from 209 through 224 are skipped because they have no 
characters assigned to them in the standard encoding. 
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jHola, Isabel! 
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Octal Character Codes 


The characters printed by the preceding program are not acces- 
sible from the keyboard. They can be printed by inserting them 
into strings, as we did above, or by using their octal values 
directly in a string. A three-digit number following a backslash 
in a POSTSCRIPT string is interpreted as the octal code of a char- 
acter to be placed in the string. That is, the string 


(785\275) 


has as its fourth element the character whose character code is 
275 octal. It would be printed as “785%c”. A list of the octal 
encoding of all POSTSCRIPT standard fonts is in the POSTSCRIPT 
Language Reference Manual. 


To demonstrate this method of using octal codes, the following 
program prints a line of Spanish text. 


/Times-Roman findfont 12 scalefont setfont 
300 400 moveto 


(\241 Hola, Isabel!) show 
showpage 


The code 24/ in the string (\24/Hola, Isabel!) represents an in- 
verted exclamation point. 


It should again be emphasized that the encoding used here is 
merely the standard encoding for POSTSCRIPT text fonts and is in 
no way fixed. If a different set of codes is appropriate to an ap- 
plication, or if a program needs to use some of a font’s un- 
assigned characters (which include a host of accented 
characters), the encoding is easily changed. Again, to see how to 
do this, refer to the POSTSCRIPT Language Cookbook. 


9.3 FONT TRANSFORMATIONS 
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A POSTSCRIPT transformation matrix is a six-element array of 
numbers that defines how coordinates in user space are to be 
transformed into positions on the current page. The elements of 
the array determine the scale, orientation, and position of the x 
and y axes. 


The graphics state maintains a Current Transformation Matrix, 
which defines how all images are positioned on the current page. 
The translate, rotate, and scale operators change elements in 
this matrix in order to modify the user coordinate system. 


A separate transformation matrix is associated with each font, 
defining how the characters in the font are to be printed onto the 
current page. This font matrix can be altered directly with the 
makefont operator, which takes a font dictionary and a six- 
element array from the stack, transforms the dictionary’s font 
matrix by the array, and then pushes the new font dictionary onto 
the stack. 


In the discussion that follows, we shall only be examining trans- 
formation matrices that result in straightforward scaling of the 
font. Such matrices have the form 


Im00n0 QO] 
where m and n are the desired scales in x and y, respectively. 
Thus, the lines 


/Helvetica-Bold findfont 6 scalefont 
/Helvetica-Bold findfont [6 0 0 6 0 0] makefont 


do exactly the same thing: create a six-point Helvetica Bold font 
dictionary. 


The makefont operator allows you to create condensed or ex- 
panded fonts by suitably changing the contents of the font 
matrix. The following program demonstrates this technique. 


% ---- Variables & Procedures ---- 
/basefont /Times-Roman findfont def 
/LM 72 def 


/newline 

{ currentpoint 13 sub 
exch pop LM 
exch moveto } def 
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"Talking of axes," 
said the Duchess, 
"Off with her head!" 
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-Lewrs Carrol! 
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Yo --~-- Begin Program ------ 
LM 600 moveto 


%normal print: 
basefont [12 0 0 12 0 0] makefont setfont 


("Talking of axes,") show newline 
%expanded: 

basefont [17 0 0 12 0 0] makefont setfont 
(said the Duchess,) show newline 
%condensed: 

basefont [7 0 0 12 0 0] makefont setfont 
("Off with her head!") show newline 
basefont [12 0 6.93 12 0 0] makefont setfont 
( - Lewis Carroll) show 


showpage 


Two variables are used here: our usual LM and a variable 
basefont, whose value is the Times Roman font dictionary. 


The program moves to the top of the page and prints four lines, 
each time transforming the current font with a different font 
matrix. The first of these, 


[12001200] 
creates a normal twelve-point Times Roman font. The second, 
[117001200] 


scales the horizontal direction more than the vertical; the height 
of each character is that of a twelve-point font, while the width is 
appropriate to a seventeen-point font. The characters are wider, 
the font is expanded. 


The third matrix used, 

[700 120 0] 
results in a condensed font. 
The last matrix in our example, 


[12 0 6.93 12 0 Oj 


has a non-zero value as its third element. The third element in a 
transformation matrix affects the angle by which the font is 
obliqued. To oblique a font by 8 degrees, set the third element in 
the transformation matrix to yxtan®, where y is the point size of 
the font. 


The 6.93 in our last matrix above is the product /2xtan30, so our 
characters are obliqued thirty degrees. 


All of these effects could have been obtained by transforming 
user space with scale or setmatrix. However, these operators af- 
fect the appearance of everything printed on the current page. If 
only the text should be expanded, compressed, or obliqued, then 
makefont is the most appropriate operator. 


9.4 CHARACTER OUTLINES 


fonts 


Most font characters are 
described as outlines to be filled. 


X 


(A) false charpath 


DS 


(A) true charpath 


Each font dictionary contains descriptions of the shapes of its 
characters. Most fonts describe their characters as outlines that 


are filled when the character is printed. Other fonts describe 
characters as lines to be stroked or as bit maps. 


Outlined and stroked character descriptions may be directly used 
with the charpath operator. This operator takes a string and a 
boolean value from the stack and adds to the current path the 
character outlines that describe the string. The boolean value 
determines what type of outline to leave. If false, the path ex- 
actly mirrors the character descriptions in the font dictionary; if 
true, the path differs from the character description in that any 
parts of the character that are normally stroked are outlined. If a 
font’s characters are all filled, rather than stroked, then there will 
be no difference in the paths returned with true and false. (This 
is true of Times, Helvetica, and Symbol characters.) 


For example, the program lines below would result in the paths 
illustrated at left, if they were embedded in the proper program. 
(The font used here is Courier, whose characters are stroked.) 


(A) false charpath 
(A) true charpath 


The path constructed by charpath can be stroked or filled. 
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Let us end chapter eight with a program that generates an image 
similar to that reduced at left. We shall print the word Adobe in 
outlined characters at several rotations around the origin, and 
then print an outlined, white-filled Adobe Systems. 


Yo ~--=-- = Procedures -------- 
/Helvetica-Bold findfont 
30 scalefont setfont 


/oshow  %stack: (string) 


{ true charpath stroke } def 
/circleofAdobe 
{15 15 345 
{ gsave 
rotate 0 0 moveto 
(Adobe) oshow 
grestore 
} for 
} def 
% --- Begin Program --- 
250 400 translate 


.5 setlinewidth 

circleofAdobe 

0 0 moveto 

(Adobe Systems) true charpath 
gsave 1 setgray fill grestore 
stroke 


showpage 


This program’s oshow procedure prints the outline of a string’s 
characters. 


/oshow  %stack: (string) 
{ true charpath stroke } def 


It pushes the boolean true over the string on the stack, calls the 
charpath operator, and then strokes the resulting path onto the 
current page. 


CircleofAdobe sets up a for loop that rotates the coordinate sys- 
tem to every multiple of fifteen degrees and prints the outlined 
word Adobe at every rotation. 


/circleofAdobe 
{1515 345 
{ gsave 
rotate 0 0 moveto 
(Adobe) oshow 
grestore 
} for 
} def 


Finally, the program translates the origin to the middle of the 
page, calls circleofAdobe, and then outlines and fills the words 
Adobe Systems. 


0 0 moveto 

(Adobe Systems) true charpath 
gsave 1 setgray fill grestore 
stroke 


Note that we put the fill operation inside a gsave-grestore pair 
so that we could both fill and stroke the character path. Our font 
in this program has filled characters, so the choice of true or 
false for this program’s charpath operators did not matter. 
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9.5 OPERATOR SUMMARY 


kshow 


makefont 


charpath 
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Character and Font Operators 


proc str > — 
Execute proc between showing characters in str 


fdict matrix = fdict 
Return new font dictionary with transformed font matrix 


Path Construction Operators 


str bool > — 
Add character outlines to current path 


Bi Oe 


yeoine Systems 
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10.1 CLIPPING PATH 


The POSTSCRIPT graphics state maintains a clipping path, which 
represents the boundaries of the region on the current page into 
which images can be painted. Initially, this path corresponds to 
the edges of the paper used by the printer. The current clipping 
path can be changed with the clip operator. The clip operator 
makes the current path the clipping path; all future painting 
operations will be clipped so that only those parts that lie within 
this path are actually transferred to the current page. 


For example, the following program constructs a triangular path 
and makes it the clipping path. It then draws a grid of horizontal 
and vertical lines, only parts of which actually are painted onto 
the current page. 


% ---- Procedures ---- 
/trianglepath 
{ newpath 

0 0 moveto 

144 0 lineto 

72 200 lineto 


closepath } def 
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Only the part of the grid that falls 
within the triangular clipping path 
reaches the current page. 


/verticals 
{ newpath 
09 144 
{ 0 moveto 
0 216 rlineto } for 
stroke } def 
/horizontals 
{ newpath 
0 10 200 
{ 0 exch moveto 
144 0 rlineto } for 
stroke } def 
% ---- Begin Program --- 
230 300 translate 
trianglepath clip %set clipping path 
verticals %Do grid 
horizontals 


showpage 


The procedure trianglepath constructs a triangular path with a 
base 144 units long and a height of 200. Verticals and 
horizontals draw a series of vertical and horizontal lines, respec- 
tively. 


The program calls trianglepath and then the clip operator. The 
grid is then drawn with verticals and horizontals; since the im- 
ageable portion of the current page has been clipped, only that 
part of the grid that falls within the triangle ends up on the page 


(see illustration at left). 


Any path can be used as a clipping boundary, including the char- 
acter path left by a charpath operator. For example, the follow- 
ing program prints a series of line segments radiating from the 
origin clipped to the character path of the name StarLines. 
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Yo ~--=--= Procedures --------------- 
/Times-Bolditalic findfont 
27 scalefont setfont 


/rays 
{01.5179 
{ gsave 
rotate 
00 moveto 108 0 lineto 
stroke 
grestore 
} for 


Yo ~----=-- Begin Program --------- 
300 400 translate 


.25 setlinewidth 


newpath 

0 0 moveto 
(StarLines) true 
charpath clip 
newpath 

54 —15 translate 
rays 


showpage 


The rays procedure draws our radiating lines by repeatedly rotat- 
ing the coordinate system and drawing a line along the x axis. 


rotate 
00 moveto 108 0 lineto 
stroke 


The angle of rotation is determined by a for loop that steps 
through the angles from 0 to 179 in /.5-degree intervals. 


The program, having defined rays, moves to the center of the 
page, sets the line width to a quarter of a unit, and then sets up 
the character outline of the string StarLines as a clipping path. 
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Any image, graphics, or text can 
be printed within a clipping path. 


newpath 

0 0 moveto 
(StarLines) true 
charpath clip 


The origin is translated to below the center of the string-shaped 
clipping path and the rays procedure called. 


newpath 
54 -15 translate 
rays 


A clipping path does not restrict where an object may be drawn, 
only what parts of that object will affect the current page. An 
object drawn outside of the current clipping path will not cause 


an error, it will just not appear on the current page. 


10.2 LINE-DRAWING DETAILS 


The POSTSCRIPT language gives complete control over how the 
stroke operator converts a path into a painted line or curve. The 
setlinewidth operator determines the width of the stroked line. 
There are several operators that allow us to precisely determine 
other characteristics of a stroked path. Among these are: 

setlinecap Determines the appearance of line segment ends. 


setlinejoin Determines the method by which different line 
segments are joined. 


setdash Determines the pattern for dashed lines. 


We shall examine each of these operators in turn. 


setlinecap 


The setlinecap operator takes a number from the stack and uses 
it as a code determining how POSTSCRIPT will end stroked line 
segments. For example, the program line 


1 setlinecap 


would cause POSTSCRIPT to paint all line segments with round 
ends. 
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t+} 


Linecap = 0; Butt caps 


Linecap = 1; Round caps 


Linecap = 2; Projecting caps 


Linejoin = 0; Miter joins 


Linejoin = 1; Round joins 


Linejoin = 2; Bevel joins 


There are three values for the line cap code: 
0 Butt caps. The line segment has square ends perpen- 


dicular to the path. This is the POSTSCRIPT default line 
cap. 

1 Round caps. The line segment ends with semicircular 
caps with diameters equal to the width of the line. 


2 Projecting square caps. These are similar to butt caps, 
but extend one-half of a line width beyond the line 
segment’s endpoint. 


setlinejoin 


When two connected line segments are stroked, POSTSCRIPT 
needs to make a decision about what type of joint to use between 
them. The setlinejoin operator tells POSTSCRIPT how to join 
connecting line segments. This operator is similar to setlinecap, 
in that it takes a code from the top of the stack. This code can 
have values from zero to two, corresponding to the following 
types of line joins: 


0 Mitered join. The edges of the stroke are extended until 
they meet. This is the default join. This join is affected 
by the current miter limit (see below). 


1 Rounded join. The segments are connected by a circular 
join with a diameter equal to the line width. 


2 Bevel join. The segments are finished with butt end caps 
and the notch at the larger angle between the segments is 
filled with a triangle. 


Miter Limit 


Mitered joins can present a problem. If two line segments meet 
at an extremely small angle, the mitered join can produce a spike 
that extends a considerable distance beyond the intersection of 
the path segments. To prevent this, the join switches from 
mitered to beveled when the angle between line segments be- 
comes too acute. 
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ratio of I/w. 


<a 


10 setmiterlimit 


<— 


3 setmiterlimit 


That is, if the current line join is 0, line segments will normally 
be connected with a mitered joint (see a, at left). However, if the 
angle between the two segments is too small, the connection is 
beveled (as in D). 


The angle at which this changeover is made is determined by the 


current miter limit. The miter limit is the maximum ratio of the 
diagonal line through a join to the width of the lines producing 
the join (see at left). This ratio can be set by the setmiterlimit 
operator, which takes a number from the stack and makes it the 
new miter limit. The smaller this number is, the less tolerant 
POSTSCRIPT becomes of small mitered angles and the sooner it 
will switch to beveled joins. The default POSTSCRIPT miter limit 
is ten, specifying a miter limit angle of about eleven degrees. 


The illustration at left shows two line segments intersecting at an 
angle of thirty degrees. In the upper figure, the miter limit is the 
default /0; in the lower, the limit has been changed to 3. The 
angle is the same, but the lower miter limit causes the second 
pair to be beveled, rather than mitered. 


setdash 


The current path is normally stroked with a solid line. Other 
methods of stroking a path are possible, however. The 
POSTSCRIPT graphics state includes a dash array and a dash 
offset that together describe what pattern of alternating black and 
white dashes should be used to stroke paths. 


This pattern is set by the setdash operator, which takes an array 
and a number from the stack and makes them the current dash 
array and offset. The array contains a set of numbers, such as 


[3515] 


which represent the lengths of alternating black and white seg- 
ments should make up a stroked line. The array above would 
cause all paths to be stroked with a repeating sequence consisting 
of three units of black, five units of no ink, one unit black, five 


units no ink. This pattern will repeat along the entire stroked path 
(see illustration at left). 
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The second argument passed to setdash is the offset within the 
dash pattern where the stroke operator is to start when it prints a 
line. That is, if we were to set the dash pattern with the line 


[6 3] 3 setdash 


stroked lines would begin three units into the pattern, or halfway 
through the first long dash. 


The following program illustrates the effects of the setdash argu- 
ments on the appearance of stroked lines. It draws two thick ver- 
tical lines and then draws a series of horizontal lines between 
them, each with a different dash pattern or offset. The horizontal 
lines are numbered with their vertical positions above the origin. 


/ypos 130 def 
BOER IGRS, CUR AERP SETS Shin 8s /Times-Roman findfont 6 scalefont setfont 


70 /prt-n 


55 {( ) cvs show } def 
Ro ee es /borders 
Qa get PO ogee eh { -2.5 0 moveto 0 135 rlineto 
Sp tiaras ares SS 102.50 moveto 0 135 rlineto 
(AO 2, No ate eee ts Sat stroke } def 
/newline 
{ /ypos ypos 15 sub def } def 
/doLine 


{0 ypos moveto 100 0 rlineto stroke 
5 ypos 2 add moveto ypos prt-n 
newline } def 

% -------- Begin Program -------- 

250 350 translate 


5 setlinewidth 
borders 
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.5 setlinewidth 

[ ] 0 setdash doLine %empty array for solid line 
[4 2] 0 setdash doLine 

[2 4] 0 setdash doLine 

[6 4 2 4] 0 setdash doLine 

[4 4] 0 setdash doLine 

[4 4] 1 setdash doLine 

[4 4] 2 setdash doLine 

[4 4] 3 setdash doLine 

[4 4] 4 setdash doLine 


showpage 


Much of this program is familiar to us already. The newline pro- 
cedure decrements the variable ypos, which holds the current 
vertical position. Prt-n converts a number to a string and prints it 
on the current page. Borders draws two vertical lines one 
hundred units apart. 


The doLine procedure draws a line, prints the value of ypos 
above the line, and then decrements ypos. 


/doLine 

{0 ypos moveto 100 0 rlineto stroke 
5 ypos 2 add moveto ypos prt-n 
newline } def 


The program moves the origin to the middle of the page and 
prints the vertical borders in 5-unit-wide lines. 


5 setlinewidth 
borders 


The line width is reset to .5 and nine horizontal lines are drawn, 
each with a different dash pattern or offset. 


The first dash pattern, 
[ ] 0 setdash doLine 


has an empty dash array, signifying a solid line. The offset is 
unimportant in this case. The next three lines, 
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[4 2] 0 setdash doLine 
[2 4] 0 setdash doLine 
[6 4 2 4] 0 setdash doLine 


draw lines of various dash patterns. The last five lines have the 
same pattern, but different offsets. 


[4 4] 0 setdash doLine 
[4 4] 1 setdash doLine 
[4 4] 2 setdash doLine 
[4 4] 3 setdash doLine 
[4 4] 4 setdash doLine 


For more information on the setdash operator, refer to the 
POSTSCRIPT Language Reference Manual and the POSTSCRIPT 
Language Cookbook. 
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10.3 OPERATOR SUMMARY 


clip 


setdash 


setlinecap 


setlinejoin 


setmiterlimit 


Graphics State Operators 


—— => — 

Set clipping boundary to current path 
ary n > — 

Set dash array 


0/1/2 > — 
Set shape of stroked line ends 


0/1/2 > — 
Set shape of stroked line joins 


num > — 
Set maximum miter ratio 
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IMAGES 


11.1 THE IMAGE OPERATOR 


Digital electronics typically handles photographic information by 
dividing the picture up into small sections and recording the 
brightness and grey value or color of each section. A television 
image is such a sampled image, as are the graphics produced by 
most computer systems. Each sample of the original image is 
reproduced onto a section of the final printed image. This small 
piece of black, white, gray, or color is called a picture element, 
or pixel. 


The POSTSCRIPT language prints sampled images with the image 
operator. This operator interprets the character codes of the 
characters of a string as a series of bits that describe an image, 
beginning at the image’s lower left corner. 


For example, the string “AB” consists of two characters, whose 
default encodings are decimal 65 and 66. The image operator 
would interpret this string as the series of bits that are the binary 
representation of these numbers. That is, the binary sequence 


01000001 01000010 


The image operator interprets the bits passed to it as a descrip- 
tion of the gray values of a stream of pixels of from one to eight 
bits each. 
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The image operator prints its results in a one-unit square whose 
lower left corner is at the origin. Thus, the image rendered by the 
image operator in the default user coordinate system will be 1/72 
inch on a side. Before using image, one needs to translate the 
origin to the desired location of the image and scale to the image 
size required. 


Using image 
The image operator takes five arguments: 


e Scan length 
Number of samples per scan line. 


e Scan lines 
Number of scan lines in the image. 


e Bits per sample 
The number of bits making up each sample. Permissible 
values are /, 2, 4, and 8. An image with one bit per sample 
will print only black and white. An eight bit-per-sample 
image can specify values ranging from 0 (black) to 255 
(white). 


e Transform matrix 
A six-element array that determines the mapping of 
samples into the one-unit-square imaging region. (For a 
more detailed description of POSTSCRIPT transform 
matrices, refer to section 4.6 of the POSTSCRIPT Language 
Reference Manual.) For an image n samples wide made up 
of m lines, the matrix 


[Ind0O0mo00] 


will cause the image to exactly fill the unit square. Many 
graphics programs generate images whose data begins at 
the upper left corner of the image, rather than the lower 
left. In these cases, the matrix 


[nd00-m0m] 


will allow proper rendering of the image. 


e Procedure 
This is the procedure that produces the data strings needed 
by image. This can be any POSTSCRIPT procedure that 
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leaves a string on the stack. The image operator will take 
this string and interpret its characters as sample data. If the 
string does not describe the complete image, the image 
operator will call this procedure again, repeating until the 
number of samples implied by the first three arguments 
have been processed. The image operator ignores any 
unused data left in the string at the end of the image; it also 
ignores any bits left in its current character of data at the 
end of a scan line. 


A Binary Image 
The program below prints an eight by eight binary image one 
inch on a side. 


300 400 translate %Move image to middle of page 
72 72 scale %Make image one inch on a side 


8 8 1 [800800] {<c936>} image 
showpage 


The first two lines of this program scale the unit square to the 
desired position and size. This will determine the location and 
size of the printed image. 


The third line, 
8 8 1 [800800] {<c936>} image 


prints an eight pixel by eight line image, each pixel being one 
bit; the transform matrix will fill the unit square (scaled to a one 
inch square) with the image. 


The procedure argument in the line above introduces a new type 
of string. Angle brackets enclose a hexadecimal string. Each pair 
of characters in this string is interpreted as a hexadecimal num- 
ber making up one character of the string. Thus, the string 
<c936> has two characters whose character codes are 
hexadecimal C9 and 36. The image operator will take any kind 
of string, but hex strings are useful in specifying bitmaps. 


The procedure specified for the image operator in our example 
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0 
88 1 [800800] {<c936>} image 
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will place this two-character string on the stack every time it is 
called. This string will be interpreted as a sequence of sixteen 
bits: 


1100100100110110 


Since each line of our image is eight one-bit samples wide, each 
call of the procedure will supply data for two lines. The image 
operator calls the procedure four times in making the image. The 
illustration at left indicates the correspondence between the data 
and the resulting image. 


Bits per Sample 


The following program takes the image from the previous ex- 
ample and prints it four times with different numbers of bits per 
sample. 


72 500 translate 


72 72 scale 
881 [80080 0] {<c936>} image 


0 —1.25 translate 
8 82 [80080 0] {<c936>} image 


0 —1.25 translate 
8 8 4[8 0080 O] {<c936>} image 


0 —1.25 translate 
8 8 8 [80080 0] {<c936>} image 


showpage 


The images at left, from top to bottom, represent the hex string 
<c936> interpreted as one, two, four, and eight bits per sample. 
The first square is identical to our previous example. The second 
sees the string as an eight-sample sequence: 


11 00 10 01 00 11 01 10 


This sequence makes up one line of samples which is repeated 


for each line in the image. The last two squares interpret the data 
as four- and two-sample sequences, respectively: 


1100 1001 0011 0110 


11001001 00110110 


Aspect Ratio 


The program below prints the bitmapped image of a helicopter in 
a one inch square. 


/Helicopter 
<dd ff 00 ff 54 1f 80 03 fb f9 00 1e> def 


300 400 translate 
72 72 scale 


1661 [160060 O] {Helicopter} image 
showpage 


The program is very similar to our first example, with only two 
differences: 


1. The procedure argument for the image operator returns the 
complete bitmap and is only called once. 


2. The bitmap is not square. It contains six lines of sixteen 
samples each. 


The second difference leads to a problem with our program. We 
are mapping a sixteen by six bitmap into a 72 by 72 square. The 
result is that our pixels are tall and skinny and our image is dis- 
torted. For our image to be properly proportioned, the sides of 
the square into which the image is mapped (as set by the scale 
operator) should have a ratio equal to those of the bitmap being 
printed. 


Thus, if the line that contains the scale operator in the program 
above is changed to 


72 27 scale 
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a 


(a ratio of 16 to 6), the bitmap proportions and the unit square 
proportions will match, and the helicopter will come out as at 
left. 
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11.2 OPERATOR SUMMARY 


Graphics Output Operators 


image _ scanlen #lines b/p [transform] {proc} => — 
Render image onto current page 


Polymorphic Operators 


putinterval obj, 1 obj, =>— 
Copy objy into obj 1 starting at i 
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12.1 APPLE LASERWRITER 


The Apple LaserWriter is the most widely available POSTSCRIPT 
printer. Among its features is an interactive mode that allows the 
user to communicate directly with the POSTSCRIPT interpreter. 
This allows the printer to be programmed directly in 
POSTSCRIPT. 


The LaserWriter contains a complete implementation of 
POSTSCRIPT. All of the sample programs presented in this 
manual may be sent to the LaserWriter. 


Preparing the LaserWriter 


The LaserWriter can be used with any computer or terminal that 
can communicate through an RS-232 port. The host computer 
will need a telecommunication program (such as MacTerminal 
on a Macintosh) for interactive communication with a 
LaserWriter. 


To prepare the LaserWriter for interactive use: 


¢ Connect the RS-232 port of the LaserWriter to that of the 
host computer. Depending on the host computer, this will 
require a cable with either two 25-pin connectors or a 25- 
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pin and a 9-pin connector (such as a Macintosh modem 
cable). 


e Set the LaserWriter’s select switch to either 1200 baud or 
9600 baud, as desired. 


e Turn on the LaserWriter and start the computer’s telecom- 
munication program. The program should use the follow- 
ing: 


* Baud rate of 1200 or 9600, depending on the printer’s 
switch setting. 

* XON/XOFF protocol. 

* Seven bit data. 


* No Parity. 


At this point your keyboard input will be sent through the serial 
link to the LaserWriter. To start the LaserWriter’s interactive 
mode, type the command executive followed by a return (this 
will not be echoed). You will receive an opening message from 
the interpreter and then a command prompt: 


PS> 


Using Interactive Mode 


You will now be typing directly to the POSTSCRIPT interpreter. 
All input will be interpreted as POSTSCRIPT code. You can send 
programs to the interpreter in two ways: 


e You can type the program directly into the interpreter. 
Each line of POSTSCRIPT code will be carried out as it is 
received by the printer. 


e You can use the telecommunications program to download 
a previously-prepared text file that contains a POSTSCRIPT 
program. If you are using MacTerminal, you should use 
the following file transfer settings: 


* Transfer Method: Text. 

* Remote System: Other. 

* Retain Line Breaks: Yes. 

* Word Wrap Outgoing Text: No. 
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Leaving Interactive mode 


To leave interactive mode, type in the POSTSCRIPT command 
quit. Do not forget to return the LaserWriter’s switch to the set- 
ting appropriate to its use as a printer. 


For a complete discussion of the LaserWriter’s interactive mode, 
please refer to the section on the Apple LaserWriter in the 
POSTSCRIPT Language Reference Manual. 
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INTRODUCTION 


The POSTSCRIPT Language Cookbook is a collection of complete 
programming examples intended to teach you how to write 
programs in the POSTSCRIPT language. It is assumed that you 
have covered the material in the POSTSCRIPT Language Tutorial 
(the first half of this book), have access to the POSTSCRIPT Lan- 
guage Reference Manual and have some programming back- 
ground. It is possible, though, for someone with very little pro- 
gramming experience to use the ‘“Cookbook’’ effectively. 


The ‘‘recipes’’ (programming examples) presented in the Cook- 
book fall into two basic categories: programs that are ‘‘ready to 
use’’ and programs that are intended as ‘‘inspiration.’’ Many of 
the programs contain commonly used procedure definitions that 
may be inserted into larger programs without modification. For 
example, an application that prints geometric objects would in- 
clude the procedure to draw an ellipse as presented in the 
program ‘‘Elliptical Arcs.’’ Other programs are most useful for 
the techniques presented; they demonstrate specific applications 
to serve as a model for other applications or to serve as a starting 
point for further development. 


FORMAT OF THE EXAMPLES 


Each programming example begins with a reduced version of the 
output page produced by the program. The 8-1/2 inch by 11 inch 
page has been reduced to be 70% of its original size. Small tick- 
marks near the top edge and the left edge of the page indicate 
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scaled inches for easier reference. There is also a scale at the 
bottom of the page that shows the measurement of an inch for 
this reduced page size. 


The pages that present the actual programs have been divided 
into two columns. The left column is the program itself. The 
right column is a commentary on the program. 


In the case of programs that are two pages long, the output page 
is intentionally repeated. 


HOW TO USE THE COOKBOOK 


INTRODUCTION 


The POSTSCRIPT Language Cookbook is divided into four sec- 
tions: Basic Graphics, Printing Text, Applications, and Modify- 
ing and Creating Fonts. Each section begins with a brief discus- 
sion of the important points presented and is followed by a col- 
lection of program examples. The programs in the Cookbook 
cover a range of difficulty. The easier programs tend to be near 
the beginning and the more complex programs towards the end, 
although there is no clearly defined progression of difficulty. 


Each program is independent of the others but occasionally the 
commentary for a program may rely on commentary from an 
earlier program. In such cases a reference is made to the earlier 
program. 


The best way to use the Cookbook is to try running the programs 
on a POSTSCRIPT interpreter (usually resident in a printer). Then 
try modifying the program by changing arguments to procedures, 
for example, or by using different fonts. You can also try com- 
bining procedure definitions from various programs to create 
more sophisticated programs. 


The Cookbook attempts to present a reasonable programming 
style and you may find that you develop your own POSTSCRIPT 
programming style. POSTSCRIPT is a very rich language (there 
are approximately 250 operators in the standard language!) and 
there are often many different ways of expressing the same 
operation. For example, the following two program fragments 
achieve the same result: they copy the top two elements of the 
operand stack. 


2 copy 
1 index 1 index 


Many of the programs contain commonly used POSTSCRIPT pro- 
gramming idioms. One such idiom is the program fragment to 
push the coordinates of the bounding box of a character onto the 
operand stack: 


newpath 
0 0 moveto 
(A) true charpath flattenpath pathbbox 


This series of operators is used every time the bounding box of a 
character needs to be determined. (This idiom is explained in 
detail in the ‘‘Setting Fractions’? and ‘‘Printing with Small 
Caps’’ program examples.) 


Occasionally you will find that efficiency was sacrificed for 
clarity in some of the examples (clarity was more important in 
this tutorial presentation). More efficient implementations are 
left as exercises to the reader. 
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Repeated Shapes 


Expanded and Constant Width Lines 


Elliptical Arcs 


Drawing Arrows 


Centered Dash Patterns 


Printing Images 


PROGRAMS 1-6 


BASIC GRAPHICS 


The programs presented in this section are generally simpler in 
nature than programs presented in later sections. They con- 
centrate on the basic techniques for defining shapes, performing 
coordinate system transformations and printing images. 


ABOUT THE PROGRAMS 


The first program, ‘Repeated Shapes,’’ demonstrates a synthesis 
of many of the basic POSTSCRIPT graphic constructs: defining 
paths, using the scale and rotate transformations, and using the 
graphic output operators fill and stroke. It exemplifies how a 
short and simple POSTSCRIPT program can generate interesting 
graphic images. 


The next program, “‘Expanded and Constant Width Lines,”’ 
shows how to control the scaling transformation to get dif- 
ferently scaled lines. The techniques presented in this program 
are not only restricted to lines but may be applied to any other 
graphic object including fonts. 


“Elliptical Arcs’’ introduces an important technique: using dic- 
tionaries to define local variables (see description below). In ad- 
dition, it demonstrates how to build a procedure, “‘ellipse,’’ from 
the standard POSTSCRIPT operators. The behavior and argument 
list of the ‘‘ellipse’’ procedure are modeled after the arc 
operator. Users are free to define new procedures in 
POSTSCRIPT: this is what makes the language so powerful and 
flexible. 
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“‘Drawing Arrows’’ defines a general procedure that can be used 
to draw any kind of straight arrow. This is a useful primitive in 
the larger context of making illustrations. 


“*Centered Dash Patterns’’ focuses on a detail of the setdash 
operator: the offset argument. By carefully calculating the value 
of the offset, it’s possible to center any dash pattern on any path. 
Included in this program is a useful general procedure, 
“‘pathlength,’’ that computes the length of any arbitrary path in 
the current user space. 


“*Printing Images’’ demonstrates how to use the image operator, 
how to modify the transfer function, and how to read the data for 
the image from the current file. This technique of reading data 
from the current file can be applied to many other situations such 
as text processing. 


DICTIONARIES AND LOCAL VARIABLES 


BASIC GRAPHICS 


The POSTSCRIPT language is not as highly structured as other 
programming languages such as Pascal or Algol. There is no ex- 
plicit method for specifying the scope of variables. Instead one 
has to ‘‘simulate’’ the scoping mechanism through the careful 
use of dictionaries, the dictionary stack, and the dictionary 
operators. 


First let’s review some of the basic concepts underlying the dic- 
tionary mechanism. The def operator associates a key with a 
value and that key-value pair is stored in the current dictionary. 
The current dictionary is always the topmost dictionary on the 
dictionary stack. A new dictionary can be created (using the dict 
operator) and it can be pushed onto the dictionary stack (using 
the begin operator), thereby making it the current dictionary. 


When the POSTSCRIPT interpreter encounters a name, it searches 
for a definition of that name in the dictionary stack beginning 
with the topmost (current) dictionary and working its way down 
the dictionary stack until it finds the first instance of that name. 
Due to the nature of this name search process, dictionaries be- 
come the context for the scope of names. 


Local variables are simulated by creating a new dictionary, 


pushing it onto the dictionary stack, performing def operations, 
and then popping that new dictionary. As long as the new dic- 
tionary remains on the dictionary stack, we will find the “‘local’’ 
value for the variable when a name search is done. Once the new 
dictionary is popped from the dictionary stack, the values for 
names defined within the context of this dictionary will no 
longer be found (although if a variable by that same name were 
defined in another dictionary still on the dictionary stack, that 
value would be returned in the name search). Methodically push- 
ing and popping dictionaries is what gives variables their scope. 
The following example illustrates this mechanism: 


Example: 


/thestring (global) def % 1 


thestring = % 2 
/exampledict 1 dictdef %3 
exampledict begin % 4 
thestring = % 5 
/thestring (local) def % 6 
thestring = % 7 
end % 8 
thestring = % 9 


The output produced by this program looks like: 


global 
global 
local 

global 


Description of the program: The first line defines the variable 
“‘thestring’ to have the value ‘‘(global).’’ Line 2 prints the value 
of “‘thestring’’ on the standard output. Line 3 creates a diction- 
ary called “‘exampledict’’ to be used for local storage of vari- 
ables. Line 4 pushes ‘‘exampledict’’ onto the dictionary stack, 
making it the current dictionary. Line 5 prints the value of 
“‘thestring’’ again. Since “‘thestring’’ has not yet been defined in 
the current dictionary, the value in the next-to-topmost diction- 
ary is printed. Line 6 defines “‘thestring’’ to have the value 
““(local)’’ within the context of ‘“exampledict’’ and this value is 
the one found when ‘‘thestring’’ is printed in line 7. Line 8 pops 
“‘exampledict’’ from the dictionary stack. Line 9 prints the 


DICTIONARIES AND LOCAL VARIABLES 131 


132 


BASIC GRAPHICS 


original value of ‘“‘thestring’’ since the value defined in 
““exampledict’’ is no longer found. 


The dictionary mechanism can be used with POSTSCRIPT 
procedures to simulate local variables in the following manner: 
create a new dictionary that is large enough to hold all the defini- 
tions made within the procedure. The first operation in the proce- 
dure should push this dictionary onto the dictionary stack and the 
last operation in the procedure should pop it from the dictionary 
stack. The following is a small example that can be used as a 
template: 


/localdict 1 dict def 
/sampleproc 
{ localdict begin 
/localvariable 6 def 
end 
} def 


In general it is not a good idea to create the dictionary within the 
procedure because each procedure call allocates new memory for 
the dictionary. This can use up a lot of virtual memory if the 
procedure is called repeatedly. The following example illustrates 
a procedure that creates a new dictionary each time the proce- 
dure is executed: 


/sampleproc 
{ 1 dict begin % this allocates new VM each time 
/localvariable 6 def 
end 
} def 


Although it uses more memory, the above method does have the 
advantage that each time the procedure is called, an entirely new 
context is created, whereas with the previous method, the old 
context is invoked each time the procedure is called. 


There is another method for pushing a dictionary onto the dic- 
tionary stack as the first operation in a procedure without having 
to give the dictionary a name. This technique is advantageous for 
two reasons. The first reason is that it serves as a form of 
“information hiding’’ since the dictionary cannot be accessed by 
name; it can only be accessed within the procedure that contains 


it. The second reason is that it saves key (name) space in the 
enclosing dictionary where the procedure definition is made 
since the dictionary itself has no name; the savings on name 
space become significant when many procedures requiring local 
variables are defined in a program. 


/sampleproc % 1 
{ 0 begin % 2 
/localvariable 6 def % 3 

end % 4 

} def %5 


/sampleproc load 01 dict put %6 


Recall that procedures are actually executable arrays. The ‘‘0’’ 
in line 2 of the program merely serves as a placeholder for the 
reference to the local dictionary. Line 6 creates the dictionary 
and inserts it into the placeholder position. First the procedure is 
pushed onto the operand stack as an array object. Then the dic- 
tionary is created and inserted as the zeroth element of the proce- 
dure array. From now on a reference to the dictionary will exist 
in the zeroeth position of the procedure array. When the proce- 
dure is called, the first operation pushes the dictionary onto the 
dictionary stack. This technique is used in the programs 
“Creating an Analytic Font’’ and “‘Creating a Bitmap Font.”’ 
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1 inch 


72 points 


Program 1 / Repeated Shapes 


/inch {72 mul} def 


/wedge 

{ newpath 
0 0 moveto 
1 0 translate 
15 rotate 
0 15 sin translate 
0015 sin -90 90 arc 

closepath 
} def 


gsave 

3.75 inch 7.25 inch translate 

1 inch 1 inch scale 

wedge 0.02 setlinewidth stroke 
grestore 


gsave 
4.25 inch 4.25 inch translate 
1.75 inch 1.75 inch scale 
0.02 setlinewidth 
1112 
{ 12 div setgray 
gsave 
wedge 
gsave fill grestore 
0 setgray stroke 
grestore 
30 rotate 
} for 
grestore 


showpage 


This program prints a rosette design by defining a 
section of that design and then printing that section 
repeatedly. This program illustrates the for and arc 
operators, and it shows how coordinate transformations 
can be nested to use the most convenient coordinate 
system for each part of a design. 


Define an “‘ice cream cone’’ shape with the arc 
operator. This shape will have a 30 degree angle topped 
off with a semicircle. Set the path’s first point at the 
current origin. Next, move the origin to the center of the 
semicircle by translating to the right 1 unit, rotating 
counter-clockwise by 15 degrees, and translating “‘up’’ 
in the rotated system by the radius of the semicircle. The 
arc operator includes a straight line to the initial point 
of the arc and a curved section to the end of the arc. 
Note that the semicircle goes from -90 degrees to 90 
degrees in the rotated coordinate system. 


Remember the default coordinate system. 
Move into position for a sample of the wedge. 
Make the edge of the wedge 1 inch long. 
Draw the wedge with a 1/50 inch thick line. 
Get back to default coordinates. 


Move into position for the rosette. 

Make the edges of the rosette 1 3/4 inches long. 

Use a 7/200 inch thick line. 

Set up the for operator to iterate 12 times. 

Divide the loop index by 12 to set a gray value. 
Enclose the ‘‘wedge’’ operation in a gsave - grestore 
pair, as it will transform the coordinate system. 

Save the wedge path for use after the fill. 

Draw a black border around the wedge. 

Get out of the coordinate system left by wedge. 

Set up for the next section. 

Close the procedure body and execute the for operator. 
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Program 2 / Expanded and Constant Width Lines 


/inch {72 mul} def 
/centersquare 
{ newpath 
5.5 moveto -.5.5 lineto 
-.5-.5 lineto .5 -.5 lineto 
closepath 
} def 


gsave 
2.5 inch 6 inch translate 
1 16 div setlinewidth 
115 
{ gsave 
.5 mul inch dup scale 
centersquare 
stroke 
grestore 
} for 
grestore 


gsave 
6 inch 6 inch translate 
1 setlinewidth 
/cmtx matrix currentmatrix def 
115 
{ gsave 
-5 mul inch dup scale 
centersquare 
cmtx setmatrix 
stroke 


grestore 
} for 
grestore 
showpage 


This example demonstrates different effects achieved 
under the scaling transformation. Normally the line 
width used with the stroke operator is scaled according 
to the current user coordinate system. This is 
demonstrated in the set of squares drawn on the left side 
of the page. It is possible to maintain a constant line 
width although the user coordinate system is being 
scaled arbitrarily. This is shown in the set of squares 
drawn on the right side of the page. 


“‘centersquare’’ will draw a unit square centered on the 
current coordinate system origin. A square described in 
terms of its center, rather than in terms of one of its 
comers, is more convenient for this example since we 
will be drawing concentric squares. 


Remember the original coordinate system. 
Place the origin for the expanding line width squares. 


Set up a ‘‘for’’ loop to execute five times. 

Remember the current coordinate system. 

Scale the current units by 1/2 inch times the loop index. 
The stroked square has a line width proportional to the 
current scale. 

Return to the translated, unscaled coordinate system. 


Return to the original untranslated coordinate system. 


Place the origin for the constant line width squares. 

Set the line width to be 1 point. 

Store the current transformation matrix, i.e., the current 
coordinate system, in the variable ‘‘cmtx’’. 

Remember the translated coordinate system. 

Scale the squares as before. 

Create the square path, but don’t stroke it yet. 

Change the coordinate space back to the unscaled one, 
where the line width is truly 1/72nd of an inch thick. We 
explicitly reset only the coordinate space rather than use 
a grestore, since grestore resets the current path as 

well as the current coordinate system. 

After stroking the path, return to the translated, unscaled 
coordinate system. 

Return to the original untranslated coordinate system. 
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1 inch 


72 points 


Program 3 / Elliptical Arcs 


This program demonstrates how to build a procedure for 
drawing elliptical arcs from the basic POSTSCRIPT 
graphic primitives. It also demonstrates the use of 
dictionaries to implement local variables. 


/ellipsedict 8 dict def Local storage for the procedure ‘‘ellipse.”’ 
ellipsedict /mtrx matrix put Allocate a matrix for the save matrix operation below; 
make it local to the procedure ‘‘ellipse.”’ 


/ellipse “‘ellipse’’ adds a counter-clockwise segment of an 
{ ellipsedict begin elliptical arc to the current path. It takes six operands: 

/endangle exch def the x and y coordinates of the center of the ellipse (the 
/startangle exch def center is defined as the point of intersection of the major 
/yrad exch def and minor axes), the “‘radius’’ of the ellipse in the x 
/xrad exch def direction, the ‘‘radius’’ of the ellipse in the y direction, 
/y exch def the starting angle of the elliptical arc and the ending 

/x exch def angle of the elliptical arc. Since the first operation in 


this procedure pushes ‘‘ellipsedict’’ onto the dictionary 
stack and the last pops that dictionary from the 
dictionary stack, all def operations are local in scope. 


The basic strategy for defining the ellipse is to translate 
to the center of the ellipse, scale the user coordinate 
system by the x and y radius values, and then add a 
circular arc, centered at the origin with a 1 unit radius to 
the current path. We will be transforming the user 
coordinate system with the translate and rotate 
operators to add the elliptical arc segment but we don’t 
want these transformations to affect other parts of the 
program. In other words, we would like to isolate the 
effect of the transformations. Usually the gsave and 
grestore operators would be ideal candidates for this 
task. Unfortunately gsave and grestore are 
inappropriate for this situation because they do not save 
the arc segment that has been added to the path. Instead 
we will isolate the effect of the transformations by 
saving the current transformation matrix and restoring it 
explicitly after adding the elliptical arc to the path. 


/savematrix mtrx currentmatrix def Save the current transformation. 
x y translate Translate to the center of the ellipse. 
xrad yrad scale Scale by the x and y radius values. 
001 startangle endangle arc Add the arc segment to the path. 
savematrix setmatrix Restore the transformation. 
end 
} def 
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1 inch 


72 points 


Program 3 / Elliptical Arcs 


(continued) 

newpath Draw a full ellipse and outline it with a stroke. Note 
144 400 72 144 0 360 ellipse that the y-axis is longer than the x-axis. 

stroke 

newpath Draw a full ellipse and fill it with black. Note that the 
400 400 144 36 0 360 ellipse y-axis is shorter than the x-axis. 

fill 

newpath Draw a portion of an elliptical arc and outline it with a 
300 180 144 72 30 150 ellipse stroke. 

stroke 

newpath Draw a portion of an elliptical arc and fill it with black. 
480 150 30 50 270 90 ellipse Note that although the path is not explicitly closed by 

fill the ‘‘ellipse’’ procedure, the fill operation implicitly 


closes the path for us. 
showpage 
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Program 4 / Drawing Arrows 


/arrowdict 14 dict def 
arrowdict begin 

/mtrx matrix def 
end 


/arrow 
{ arrowdict begin 
/headlength exch def 
/halfheadthickness exch 2 div def 
/halfthickness exch 2 div def 
/tipy exch def /tipx exch def 
/taily exch def /tailx exch def 


/dx tipx tailx sub def 

/dy tipy taily sub def 

/arrowlength dx dx mul dy dy mul add 
sqrt def 

/angle dy dx atan def 

/base arrowlength headlength sub def 


/savematrix mtrx currentmatrix def 


tailx taily translate 
angle rotate 


0 halfthickness neg moveto 

base halfthickness neg lineto 
base halfheadthickness neg lineto 
arrowlength 0 lineto 

base halfheadthickness lineto 
base halfthickness lineto 

0 halfthickness lineto 

closepath 


savematrix setmatrix 
end 
} def 


This program demonstrates how to define a general 
procedure for drawing various kinds of straight arrows. 


Local storage for the procedure ‘‘arrow.’’ 
Allocate a matrix for storing the current matrix below. 
Make it local to the procedure ‘‘arrow.”’ 


“‘arrow’’ adds an arrow shape to the current path. It 
takes seven arguments: the x and y coordinates of the 
tail (imagine that a line has been drawn down the center 
of the arrow from the tip to the tail, then x and y lie on 
this line), the x and y coordinates of the tip of the arrow, 
the thickness of the arrow in the tail portion, the 
thickness of the arrow at the widest part of the 
arrowhead and the length of the arrowhead. 


Compute the differences in x and y for the tip and tail. 
These will be used to compute the length of the arrow 
and to compute the angle of direction that the arrow is 
facing with respect to the current user coordinate system 
origin. 

Compute where the arrowhead joins the tail. 


Save the current user coordinate system. We are using 
the same technique to isolate the effect of 
transformations as was used in the program to draw 
elliptical arcs. 

Translate to the starting point of the tail. 

Rotate the x-axis to align with the center line of the 
arrow. 

Add the arrow shape to the current path. 


Restore the current user coordinate system. 
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; Program 4 / Drawing Arrows 


(continued) 
newpath Draw a filled arrow with a thin tail and a long 
318 340 72 340 10 30 72 arrow arrowhead. 
fill 
newpath Draw an outlined arrow with a 90 degree angle at the 
382 400 542 560 72 232 116 arrow tip. To get a 90 degree angle, the ‘‘headthickness’’ 
3 setlinewidth stroke should be twice the ‘‘headlength.’’ 
newpath Draw a gray-filled arrow that has an equilateral triangle 
400 300 400 90 90 200 200 3 sqrt mul 2 div as its arrowhead. To get an equilateral triangle, the 
arrow .65 seitgray fill “‘headlength’’ should be the square root of 3 divided by 
showpage 2 times the ‘‘headthickness.”’ 
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Program 5 / Centered Dash Patterns 


/centerdash 
{ /pattern exch def 


/pathlen pathlength def 


/patternlength 0 def 

pattern 
{ patternlength add /patternlength exch def 
} forall 


pattern length 2 mod 0 ne 
{ /patternlength patternlength 2 mul def } if 
/first pattern 0 get def 
/last patternlength first sub def 
/n pathlen last sub patternlength idiv def 


/endpart pathlen patternlength n mul sub 
last sub 2 div def 


/offset first endpart sub def 


pattern offset setdash 
} def 


This program demonstrates the use of the offset 
argument to the setdash operator to center any dash 
pattern on a continuous path. The algorithm presented 
will not give the expected results if the path is 
discontinuous or closed. Included in this example is a 
very useful procedure, ‘‘pathlength,’’ that computes the 
length of an arbitrary path. 


The procedure ‘‘centerdash’’ will center a dash pattern 
on a path such that the dashes at the end points are 
identical. It takes an array describing the dash pattern as 
its argument. 

In order to center the dash pattern on the path we need 
to determine the length of the path. (See the definition 
of ‘‘pathlength’’ below.) 

First determine the total length of the repeating pattern 
by summing the elements of the dash array. 


If the pattern array is an odd number of elements, 
double the pattern length so that we can get identical 
end points. 


Get the length of the first element in the pattern array 
for use later. 
Calculate the length of the remaining part of the pattern. 


Now calculate the offset provided to the setdash 
operator so that the dashes at the end points are 
identical. Think of the path as being composed of 4 
distinct parts: 2 identical end parts, 1 part which is 
composed of ‘‘n’’ repeating pattern pieces and 1 part 
which is the remaining piece of the pattern. We can 
compute the lengths of the remaining piece and the part 
composed of ‘‘n’’ repeating pattern pieces and from 
these determine the length of the end part. 

The amount of offset is then given by the difference in 
length of the first part and the end part. 

Set up the dashing parameters using the offset computed 
above. 
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Program 5 / Centered Dash Patterns 


/pathlength 
{ flattenpath 
/dist 0 def 


{ /yfirst exch def /xfirst exch def 
/ymoveto yfirst def /xmoveto xfirst def } 
{ /ynext exch def /xnext exch def 
/dist dist ynext yfirst sub dup mul 
xnext xfirst sub dup mul add sqrt add def 
/yfirst ynext def /xfirst xnext def} 


{} 


{ /ynext ymoveto def /xnext xmoveto def 
/dist dist ynext yfirst sub dup mul 
xnext xfirst sub dup mul add sqrt add def 
/yfirst ynext def /xfirst xnext def} 
pathforall 
dist 
} def 


5 setlinewidth 


newpath 
72 500 moveto 378 500 lineto 
[30] centerdash stroke 


newpath 
72 400 moveto 378 400 lineto 
[30 50] centerdash stroke 


newpath 
72 300 moveto 378 300 lineto 
[30 10 5 10] centerdash stroke 


newpath 
72 200 moveto 378 200 lineto 
[30 15 10] centerdash stroke 


newpath 

225 390 300 240 300 arc 
[40 10] centerdash stroke 
showpage 


(continued) 


The procedure ‘‘pathlength’’ computes the length of any 
given path. It does so by first ‘‘flattening’’ the path with 
the flattenpath operator. flattenpath converts any 
curveto and arc segments in a path to a series of 

lineto segments. Then the pathforall operator is used 
to access each segment in the path, find its length and 
add the length to a total. 

Remember the coordinates of the most recent moveto 
so that the length of the closepath can be computed. 
For each lineto segment, compute the distance between 
the current point and the previous point. 


The curveto procedure does nothing since there 
shouldn’t be any curveto segments in the path after a 
flattenpath. 

The coordinates for a closepath segment are the 
coordinates of the most recent moveto. 


Leave the length of the path on the operand stack. 


Set up the line width. 


Center a very simple dash pattern in which the unfilled 
dashes have the same length as the filled ones. 


Center a pattern which is similar to the above example 
except that the unfilled dashes are longer than the filled 
ones. 


Center a dot-dash pattern. 


Center an asymmetric pattern. 


Center a dash pattern on an arbitrary continuous path, in 
this case an arc. 
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Program 6 / Printing Images 


This program demonstrates the use of the image 
operator. It also shows a useful technique for reading the 
data for the image from the current file. An important 
general procedure, ‘‘concatprocs,’’ is defined and used 
in redefining the transfer function. 


/concatprocs “‘concatprocs’’ takes two procedure bodies as 
{ /proc2 exch cvlit def arguments and concatenates them into one procedure 
/proci exch cvlit def body. The resulting procedure body is left on the 


operand stack. ‘‘concatprocs’’ will be used in 
constructing a new transfer function below. 


/newproc proc length proc2 length add Create a new array large enough to accommodate both 
array def procedures. 
newproc 0 proc putinterval Place the 1st procedure at the beginning of the new one. 
newproc proc length proc2 putinterval Place the second procedure at the end of the new one. 
newproc Cvx Now make this array into an executable object. 
} def 


/inch { 72 mul } def 
/picstr 3 string def String used in reading hexadecimal strings below (each 
row is 3 bytes long). 


/imageturkey The procedure “‘imageturkey’’ reads the image (as 
{ 24 23 1 [2400 -23 0 23] hexadecimal strings) from this file and prints it on the 
{ currenttile picstr readhexstring pop } page. The image of the turkey is represented as one bit 
image per sample. It is 24 samples wide by 23 samples high 
} def and its first sample is in the upper left corner of the 


source image. 


The image we generate is mapped to the unit square in 
user space. This unit square has its lower left corner at 
the origin and extends | unit in the positive x and y 
directions. Translate the user space origin to center the 
image on the page. Then scale the coordinate system to 
get a larger unit square. 


gsave Isolate the effects of the settransfer. 
3 inch 4 inch translate Position the unit square on the page. 
2 inch dup scale Scale it to be 2 inches square. 
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Program 6 / Printing Images 


{1 exch sub} currenttransfer concatprocs 
settransfer 


imageturkey 

003B00 002700 002480 0E4940 
114920 14B220 3CB650 75FE88 
17FF8C 175F14 1C07E2 3803C4 
703182 F8EDFC B2BBC2 BB6F84 
31BFC2 18EA3C 0E3E00 07FC00 
03F800 1E1800 1FF800 


grestore 
showpage 


(continued) 


Since the source samples for our image specify a reverse 
image (that is, the samples that correspond to ‘‘black’’ 
are specified as 1’s rather than 0’s) we specify a transfer 
function to reverse this effect. Since some output 
devices have complex transfer functions we don’t 
simply want to set the transfer function. Instead we want 
to concatenate our new transfer function with the 
existing one to achieve our results. 


As soon as ‘‘imageturkey’’ is executed, the currentfile 
... readhexstring sequence will begin reading bytes 
from this file. The safest way to synchronize reading 
from the program file with the POSTSCRIPT interpreter’s 
own reading of this file is to embed the reading 
commands in a procedure, then place that procedure 
name followed by a “‘carriage return’’ followed by the 
bytes to be read in the file. In the hexadecimal string 
specified here, each series of 6 hexadecimal numbers 
represents a row of bits in the turkey bitmap. Each 
hexadecimal character represents a pattern of four 0’s or 
1’s where 0’s are black and 1’s are white. Notice that 
this image is specified as a “‘reverse’’ image since the 
turkey is white and the background is black. 

The image command reads exactly the number of bytes 
we supplied, and the interpreter picks up its reading 
here. 
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PROGRAMS 7-11 


PRINTING TEXT 


The programs in this section contain procedures that are very 
useful in typesetting. They also provide guidelines for 
sophisticated typography. The fonts available through the 
POSTSCRIPT language give us a great deal of flexibility since 
they can be arbitrarily scaled and rotated. Without this 
flexibility, most of these programs could not be written. Most of 
the programs in this section are fairly short and simple since the 
POSTSCRIPT language has an extensive set of operators for 
manipulating fonts and printing text. 


ABOUT THE PROGRAMS 


The program ‘‘Printing with Small Caps’’ defines a general pro- 
cedure called “‘scshow’’ for printing a string of capital letters as 
small caps in the current font. In traditional typography, small 
caps are capital letters that have been designed to match the x- 
height of a particular typeface; they are smaller in height than 
regular capital letters. The ‘“scshow’’ procedure generates small 
caps of the proper proportions to coordinate with the current 
font. In order to get the proper proportions, the font must be 
scaled anamorphically; this is accomplished using the makefont 
operator. 


“*Printing with Small Caps’’ also illustrates an important tech- 
nique for computing the bounding box of a character. Since the 
proportions used for the size of the small caps are derived from a 
ratio of the cap height to the x-height of the font, these two quan- 
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PRINTING TEXT 


tities must be determined. By finding the bounding box of the 
capital X and the lowercase x, we can determine the cap height 
and x-height respectively. 


“*Setting Fractions’? defines a general procedure called 
“‘fractionshow’’ that prints a fraction in the current font given 
the numerator and denominator of the fraction. The numerals 
used to print the numerator and denominator are smaller in size 
than the standard numerals in a font. Once again the makefont 
operator is used to scale the current font anamorphically to get 
the proper proportions. 


“Vertical Text’’ defines a general procedure, ‘‘vshow,’’ for 
printing a string vertically on the page. Such a procedure is use- 
ful in labeling graphs and illustrations. The output of the 
program demonstrates that text printed vertically tends to look 
better when the text consists of capital letters only. 


“*Circular Text’’ defines two procedures for printing text along a 
circular arc. The flexibility of the POSTSCRIPT fonts makes this 
example possible since characters can be printed at any arbitrary 
angle of rotation. 


“*Placing Text Along an Arbitrary Path’’ carries the circular text 
idea one step further and defines a procedure to print text along a 
path of arbitrary shape. 
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To read means to obtain meaning from words, and 
legibility is THAT QUALITY WHICH enables words 
to be read easily, quickly, and accurately. 


JOHN C. TARR 


1 inch 
72 points 


Program 7 / Printing with Small Caps 


/scdict 3 dict def 
/scshow 
{ scdict begin 


gsave 


currentfont [.9 0 0 findscscale 0 0] makefont 
setfont 


show 
currentpoint 
grestore 
moveto 
end 
} def 


scdict begin 
/findscscale 
{ gsave 
newpath 
0 0 moveto 
(X) true charpath 
flattenpath 
pathbbox /capheight exch def pop pop pop 
newpath 
0 0 moveto 
(x) true charpath 
flattenpath 
pathbbox /xheight exch def pop pop pop 
grestore 


xheight capheight xheight sub 3 div add 
capheight div 
} def 
end 


This program defines a general procedure for printing 
with small caps. 


Local storage for the procedure ‘“scshow.’’ 

“‘scshow’’ takes one argument, a string, and shows it as 
small caps for the current font. It makes the assumption 
that the characters in the string are upper case letters 
(i.e., it does not convert characters from lower case to 
upper case). 

Save the current graphics state so that changes made to 
the current font are localized to this procedure. 

Scale the current font by 90 percent in the x-direction 
and to the proper size in the y-direction (see the 
“‘findscale’’ procedure below). 

Show the string. 

Upon exiting this procedure, we would like the current 
point to be just after the last small cap character shown 
so that ‘‘scshow’’ behaves like the show operator. 
Unfortunately performing the grestore will return us to 
our position on the page before the small cap string was 
shown. To avoid this side-effect, push the current point 
onto the operand stack before performing the grestore 
operation and then move to that point before exiting the 
procedure. 


“*findscscale’’ determines the correct scale factor for 
deriving small caps to coordinate with the current font. 
The height of the small caps should be the x-height (i.e., 
the height of a lower case x) plus one third of the 
difference between the x-height and the cap height. The 
cap height and x-height are found using the following 
method: Create a new path and set the current point to 
be the origin. Then execute the charpath operator to 
add a description of the character to the current path. 
The flattenpath operator replaces any curveto 
segments in the path with sequences of straight lines so 
that the pathbbox operator will return a bounding box 
that fits the path as closely as possible (otherwise the 
control points for the curves are included in the 
bounding box computation and these almost always lie 
off of the path outline). 

Leave the scale factor on the operand stack. 
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To read means to obtain meaning from words, and 
legibility is THAT QUALITY WHICH enables words 
to be read easily, quickly, and accurately. 


JOHN C. TARR 


1 inch 
72 points 


} Program 7 / Printing with Small Caps 


(continued) 
/Times-Roman findfont 18 scalefont setfont The following is an example of using small caps in a 
paragraph of text. When setting words in capital letters, 
72 500 moveto the results are most aesthetically pleasing when small 


(To read means to obtain meaning from) show caps are used. 
( words, and) show 


72 500 20 sub moveto 

(legibility is ) show 

(THAT QUALITY WHICH) scshow 
( enables words) show 


72 500 20 2 mul sub moveto 
(to be read easily, quickly, and accurately.) show 


72 500 70 sub moveto 
(JOHN C. TARR) scshow 


showpage 
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13/45 


Slowly stir in 5% Ibs. of chocolate and then blend on high. 


Y4 


1 inch 
72 points 


Program 8 / Setting Fractions 


/fractiondict 5 dict def 
/fractionshow 
{ fractiondict begin 
/denominator exch def 
/numerator exch def 


/regularfont currentfont def 
/fractionfont currentfont [.65 0 0 .6 0 0] 
makefont def 


gsave 
newpath 
0 0 moveto 
(1) true charpath 
flattenpath pathbbox 
/height exch def pop pop pop 
grestore 


0 .4 height mul rmoveto 


fractionfont setfont numerator show 
0 .4 height mul neg rmoveto 
regularfont setfont (\244) show 


fractionfont setfont denominator show 
regularfont setfont 
end 
} def 


This program defines a general procedure for printing 
fractional quantities. 


Local storage for the procedure ‘‘fractionshow.”’ 
‘‘fractionshow’’ takes two arguments: a string for the 
numerator and a string for the denominator. 


Remember the current, unchanged font. 

Create a new font for printing the numerator and 
denominator. Scaling the original font by 65 percent in 
the x direction and 60 percent in the y direction yields 
the best results. 


The numerator should be top-aligned with the numeral 
height (usually the height of the numeral one). In order 
to position the numerator, the height of the numeral one 
in the current font must be computed. The method used 
is to create a new path and set the current point to be the 
origin. Then execute the charpath operator to add a 
description of the character to the current path. The 
flattenpath operator replaces any curveto segments in 
the path with sequences of straight lines so that the 
pathbbox operator will return a bounding box that fits 
the path as closely as possible (otherwise the control 
points for the curves are included in the bounding box 
computation and these almost always lie off of the path 
outline). 


The numerator is positioned at 40 percent of the height 
of the numeral one so that it aligns with the numeral 
height (since it has been scaled by 60 percent). 

Print the numerator string. 

Move back down to the baseline. 

Print the fraction bar (octal code 244) in the full-size 
font. The fraction bar character has been designed with 
negative sidebearings such that it naturally gets 
positioned properly with respect to the scaled down 
numbers. 

Print the denominator string. 

Return to the original font. 
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Slowly stir in 5% Ibs. of chocolate and then blend on high. 


Y4 


1 inch 
72 points 


} Program 8 / Setting Fractions 


(continued) 
/Times-Roman findfont 300 scalefont setfont Print a large fraction near the bottom of the page. 
100 72 moveto 
(7) (8) fractionshow 
/Times-Roman findfont 18 scalefont setfont Demonstrate a fraction intermingled with text. 


72 550 moveto 

(Slowly stir in 5) show 

(1) (2) fractionshow 

( los. of chocolate and then blend on high.) show 


/Times-Roman findfont 40 scalefont setfont 

420 650 moveto 

(13) (22) fractionshow Show a smaller fraction composed of two digit numbers. 
100 450 moveto 

(3) (4) fractionshow 


showpage 
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Program 9 / Vertical Text 


/vshowdict 4 dict def 


/vshow 
{ vshowdict begin 
/thestring exch def 
/lineskip exch def 
thestring 
{ 
/charcode exch def 
/thechar ( ) dup 0 charcode put def 


0 lineskip neg rmoveto 
gsave 
thechar stringwidth pop 2 div neg 0 rmoveto 
thechar show 
grestore 
} forall 
end 
} def 


/Helvetica findfont 16 scalefont setfont 


72 576 moveto 

16 (TEXT POSITIONED VERTICALLY) vshow 
122 576 moveto 

16 (SHOULD BE CENTERED ON) vshow 
172 576 moveto 

16 (A COMMON CENTER LINE.) vshow 
222 576 moveto 

16 (VERTICAL TEXT IN CAPITAL) vshow 
272 576 moveto 

16 (LETTERS HAS MORE EVEN) vshow 
322 576 moveto 

16 (spacing than lower case letters.) vshow 


showpage 


This program defines a general procedure for printing 
text vertically (with respect to the user coordinate 
system). 


Local storage for the procedure ‘‘vshow.”’ 

“‘vshow’’ will display text vertically, centering it on a 
common center line. ‘“vshow’’ takes two arguments, the 
lineskip between letters and the string to be shown. 

The forall operator allows us to repeat the same 
procedure for each character in the string. 

forall pushes the character code onto the operand stack. 
Convert the character code to a one-character string. 


Move down by the lineskip amount. 


Move left by half of the character width. 
Display the character. 


Set up the font we wish to use. 


The first vertical line of text will be centered around the 
line x = 72 and will begin just below the line y = 576. 
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Program 10 / Circular Text 


/outsidecircletext 
{ circtextdict begin 
/radius exch def 
/centerangle exch def 
/ptsize exch def 
/str exch def 
/xradius radius ptsize 4 div add def 


gsave 
centerangle str findhalfangle add rotate 


str 
{ /charcode exch def 
() dup 0 charcode put outsideplacechar 
} forall 
grestore 
end 
} def 


/insidecircletext 
{ circtextdict begin 
/radius exch def /centerangle exch def 
/ptsize exch def /str exch def 


/xradius radius ptsize 3 div sub def 
gsave 
centerangle str findhalfangle sub rotate 
str 
{ /charcode exch def 
() dup 0 charcode put insideplacechar 
} forall 
grestore 
end 
} def 


This program defines two different procedures for 
printing text around a circular arc. ‘‘outsidecircletext’’ 
prints the text in a clockwise fashion with its baseline 
along the circumference, on the outside of the circle. 
“‘insidecircletext’’ prints the text in a counter-clockwise 
fashion with its baseline along the circumference, on the 
inside of the circle. 


“‘outsidecircletext’’ takes four arguments: the string to 
show, the point size of the font to use, the angle around 
which the text should be centered, and the radius of the 
circular arc. It assumes that the center of the circle is at 


(0,0). 


A radius slightly larger than the one specified is used for 
computations but not for placement of characters. This 
has the effect of placing the characters closer together, 
otherwise the interletter spacing would be too loose. 
Save the current graphics state. 

Find out how much angle the text subtends and then 
rotate to the appropriate starting position for showing 
the string. (The positive x-axis now intersects the circle 
where the text should start.) 


For each character in the string, determine its position 
on the circular arc and show it. 


Return to the former graphics state. 


“‘insidecircletext’’ takes the same four arguments as 
“‘outsidecircletext.”’ 


Here we use a radius which is slightly smaller than the 
desired radius for computations. This forces the 
characters to be placed farther apart to avoid 
overlapping. 
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; Program 10 / Circular Text 


/circtextdict 16 dict def 
circtextdict begin 
/findhalfangle 
{ stringwidth pop 2 div 
2 xradius mul pi mul div 360 mul 
} def 


/outsideplacechar 
{ /char exch def 
/halfangle char findhalfangle def 
gsave 
halfangle neg rotate 
radius 0 translate 
-90 rotate 
char stringwidth pop 2 div neg 0 moveto 
char show 
grestore 
halfangle 2 mul neg rotate 
} def 


/insideplacechar 
{ /char exch def 
/halfangle char findhalfangle def 
gsave 
halfangle rotate 
radius 0 translate 
90 rotate 
char stringwidth pop 2 div neg 0 moveto 
char show 
grestore 
halfangle 2 mul rotate 
} def 


/pi 3.1415923 def 
end 
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(continued) 


“‘findhalfangle’’ takes one argument, a string, and finds 
the angle subtended by that string. It leaves the value of 
half of that angle on the stack. The angle is found by 
computing the ratio of the width of the string to the 
circumference of the circle and then converting that 
value to degrees. 


“‘outsideplacechar’’ shows a character upright on the 
outside of the circumference and then rotates clockwise 
by the amount of angle subtended by the width of the 
character. 

Rotate clockwise by half the angle taken up by the width 
of the character and translate out to the circumference. 
Position character upright on outside of circumference. 
Center the character around the origin. 


Rotate clockwise by the amount of angle subtended by 
the width of the character. 


“‘insideplacechar’’ operates in a similar manner to 
“‘outsideplacechar’’ except that the direction of rotation 
is counter-clockwise and the characters are placed 
upright on the inside of the circle. 


Program 10 / Circular Text 


(continued) 


/Times-Bold findfont 22 scalefont setfont The remainder of this program demonstrates how to use 
the circular text procedures to draw a record label. 


306 448 translate translate the origin to the center of the page. 
(Symphony No. 9 (The Choral Symphony)) Put the title of the record along the “‘outside’’ of the 
22 90 140 outsidecircletext circle. 


/Times-Roman findfont 15 scalefont setfont 


(Ludwig von Beethoven) Put the composer’s name along the ‘‘outside’’ of a 
15 90 118 outsidecircletext slightly smaller circle. 

(The New York Philharmonic Orchestra) Put the name of the orchestra along the ‘‘inside’’ of the 
15 270 118 insidecircletext circle so that it reads right-side-up. 

showpage 
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Program 11 / Placing Text Along an Arbitrary Path 


/pathtextdict 26 dict def 


/pathtext 
{ pathtextdict begin 
/offset exch def 
/str exch def 


/pathdist 0 def 
/setdist offset def 
/charcount 0 def 
gsave 
flattenpath 


{movetoproc} {linetoproc} 
{curvetoproc} {closepathproc} 
pathforall 


grestore 
newpath 
end 

} def 


This program defines a general procedure called 
“‘pathtext’’ for placing text along a path of arbitrary 
shape. 


Local storage for the procedure ‘‘pathtext.’’ 


“‘pathtext’’ will place a string of text along any path. It 
takes a string and starting offset distance from the 
beginning of the path as its arguments. Note that 
“‘pathtext’’ assumes that a path has already been defined 
and after it places the text along the path, it clears the 
current path in the same manner as the stroke and fill 
operators; it also assumes that a font has been set. 
“‘pathtext’’ begins placing the characters along the 
current path, starting at the offset distance and 
continuing until either the path length is exhausted or 
the entire string has been printed, whichever occurs first. 
The results will be more effective when a small point 
size font is used along a path with sharp curves. 


Initialize the distance traveled along the path. 
Initialize the distance covered by setting characters. 
Initialize the character count. 


Reduce the path to a series of straight line segments. 
The characters will be placed along the line segments in 
the procedure “‘linetoproc.”’ 

The basic strategy is to process the segments of the path, 
keeping a running total of the distance traveled so far 
(pathdist). We also keep track of the distance taken up 
by the characters that have been set so far (setdist). 
When the distance traveled along the path is greater than 
the distance taken up by the set characters, we are ready 
to set the next character (if there are any left to be set). 
This process continues until we have exhausted the full 
length of the path. 


Clear the current path. 
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Program 11 / Placing Text Along an Arbitrary Path 


(continued) 
pathtextdict begin ‘“‘movetoproc’’ is executed when a moveto component 
/movetoproc has been encountered in the pathforall operation. 

{ /newy exch def /newx exch def 
/firstx newx def /firsty newy def Remember the ‘‘first point’’ in the path so that when we 
/ovr 0 def get a closepath component we can properly handle the 
newx newy transform text. 
/cpy exch def /cpx exch def Explicitly keep track of the current position in device 
} def space. 
/linetoproc “‘linetoproc’’ is executed when a lineto component has 
been encountered in the pathforall operation. 
{ /oldx newx def /oldy newy def Update the old point. 
/newy exch def /newx exch def Get the new point. 
/dx newx oldx sub def 
/dy newy oldy sub def 
/dist dx dup mul dy dup mul add sart def Compute the distance between the old and new point. 
dist 0 ne Don’t do anything if the line segment has zero length. 
{ /dsx dx dist div ovr mul def “‘dsx’’ and “‘dsy’’ are used to update the current 
/dsy dy dist div ovr mul def position to be just beyond the width of the previous 
character. 
oldx dsx add oldy dsy add transform 
/cpy exch def /cpx exch def Update the current position. 
/pathdist pathdist dist add def Increment the distance we have traveled along the path. 
{ setdist pathdist le Keep setting characters along this path segment until we 
have exhausted its length. 
{ charcount str length It As long as there are still characters left in the string, set 
{setchar} {exit} ifelse } them. 
{ /ovr setdist pathdist sub def Keep track of how much we have overshot the path 
exit } segment by setting the previous character. This enables 
ifelse us to position the origin of the following characters 
} loop properly on the path. 
} if 
} def 
/curvetoproc “‘curvetoproc’’ is executed when a curveto component 
{ (ERROR: No curveto’s after flattenpath!) print has been encountered in the pathforall operation. It 
} def prints an error message since there shouldn’t be any 
curveto’s in a path after the flattenpath operator has 
been executed. 
/closepathproc “‘closepathproc’’ is executed when a closepath 
{ firstx firsty linetoproc component has been encountered in the pathforall 
firstx firsty movetoproc operation. It simulates the action of the operator 
} def closepath by executing ‘‘linetoproc’’ with the 


coordinates of the most recent moveto and then 
executing ‘‘movetoproc’’ to the same point. 
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Program 11 / Placing Text Along an Arbitrary Path 


/setchar 
{ /char str charcount 1 getinterval def 


/charcount charcount 1 add def 
/charwidth char stringwidth pop def 
gsave 
cpx cpy itransform translate 
dy dx atan rotate 
0 0 moveto char show 
currentpoint transform 
/cpy exch def /cpx exch def 
grestore 
/setdist setdist charwidth add def 
} def 
end 


/Helvetica findfont 16 scalefont setfont 


newpath 
200 500 70 0 270 arc 
200 110 add 500 70 270 180 arc 


(If my film makes one more person feel\ 
miserable I'll feel I’ve done my job.\ 
-- WOODY ALLEN) 55 pathtext 


newpath 
150 310 moveto 360 310 lineto 
360 400 lineto 150 400 lineto 
closepath 
360 347 moveto 410 330 lineto 
410 380 lineto 360 363 lineto 

2 setlinewidth stroke 


showpage 


(continued) 


“*setchar’’ sets the next character in the string along the 
path and then updates the amount of path we have 
exhausted. 

Increment the character count. 

Find the width of the character. 


Translate to the current position in user space. 
Rotate the x-axis to coincide with the current segment. 


Update the current position before restoring to the 
untransformed state. 

Increment the distance we have covered by setting 
characters. 

The completes the definitions required by “‘pathtext.”’ 


Below is an example of using “‘pathtext.”’ 
Set up the font we wish to use. 


Define the path that “‘pathtext’’ will use. 


Print the string along the path at an offset of 55 points. 


Draw an outline shape suggestive of a movie camera. 
Draw the box part. 


Draw the lens part. 


EXERCISE FOR THE READER: This algorithm places 
characters along the path according to the origin of each 
character. Rewrite the algorithm so that the characters 
are placed according to the center of their width. This 
will yield better results around sharp curves and when 
larger point sizes are used. 
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In every period there have been better or 
worse types employed in better or worse 

ways. The better types employed in better 
ways have been used by the educated printer 
acquainted with standards and history, 
directed by taste and a sense of the fitness of 
things, and facing the industrial conditions and 
the needs of his time. Such men have made of 
printing an art. The poorer types and methods 
have been employed by printers ignorant of 
standards and caring alone for commercial 
success. To these, printing has been simply a 
trade. The typography of a nation has been 
good or bad as one or other of these classes 
had the supremacy. And to-day any intelligent 
printer can educate his taste, so to choose 
types for his work and so to use them, that he 
will help printing to be an art rather than a 
trade. -Daniel Berkeley Updike. 
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PROGRAMS 12-15 


APPLICATIONS 


This section is a collection of miscellaneous programs that serve 
as examples of some mini-applications written entirely in the 
POSTSCRIPT language. 


ABOUT THE PROGRAMS 


The program “‘A Simple Line Breaking Algorithm’’ is exactly 
what its title might suggest: a simple algorithm for breaking text 
across several lines. The program takes a string and prints it in a 
specified column on the page making line breaks when neces- 
sary. The program makes use of the stringwidth operator to 
determine how long a word will be when printed in the current 
font, and it makes use of the search operator to find the word 
breaks in the string. The line breaking algorithm could be part of 
a larger program for document formatting. 


“‘Making a Poster’’ is useful for printing a picture that is larger 
than the usual 8-1/2" by 11" page size. The program defines a 
procedure ‘‘printposter’’ that will take the large picture and print 
it on several pieces of 8-1/2" by 11" paper. 


The program ‘‘Drawing a Pie Chart’’ defines a set of procedures 
that can be used to draw any pie chart. It is a good example of 
integrating text and graphics under different graphical transfor- 
mations. 


“Filling an Area with a Pattern’’ demonstrates one technique for 
doing pattern-fill by changing the halftone screen and then using 
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APPLICATIONS 


the fill operator. This is a rather advanced example and it re- 
quires an understanding of the specifics of the underlying print- 
ing device, such as its resolution and orientation with respect to 
the user coordinate system. The program contains an important 
procedure, “‘setuserscreen,’’ that is used for setting up a halftone 
screen in a device independent manner. The POSTSCRIPT 
halftone screen machinery is very device dependent and the pro- 
cedure ““setuserscreen’’ serves as a device independent interface 
to it. 
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In every period there have been better or 
worse types employed in better or worse 

ways. The better types employed in better 
ways have been used by the educated printer 
acquainted with standards and history, 
directed by taste and a sense of the fitness of 
things, and facing the industrial conditions and 
the needs of his time. Such men have made of 
printing an art. The poorer types and methods 
have been employed by printers ignorant of 
standards and caring alone for commercial 
success. To these, printing has been simply a 
trade. The typography of a nation has been 
good or bad as one or other of these classes 
had the supremacy. And to-day any intelligent 
printer can educate his taste, so to choose 
types for his work and so to use them, that he 
will help printing to be an art rather than a 
trade. —Daniel Berkeley Updike. 


1 inch 
72 points 


Program 12 / A Simple Line Breaking Algorithm 


/wordbreak ( ) def 

/BreaklntoLines 

{ /proc exch def 
/linewidth exch def 
/textstring exch def 


/breakwidth wordbreak stringwidth pop def 
/curwidth 0 def 
/lastwordbreak 0 def 


/startchar 0 def 


/restoftext textstring def 


{ restoftext wordbreak search 
{/nextword exch def pop 
/restoftext exch def 
/wordwidth nextword stringwidth pop def 


curwidth wordwidth add linewidth gt 
{ textstring startchar 
lastwordbreak startchar sub 
getinterval proc 
/startchar lastwordbreak def 


/curwidth wordwidth breakwidth add def } 


{ /curwidth curwidth wordwidth add 
breakwidth add def 
} ifelse 
/lastwordbreak lastwordbreak 
nextword length add 1 add def 
} 
{ pop exit } 
ifelse 
} loop 
/lastchar textstring length def 
textstring startchar lastchar startchar sub 
getinterval proc 
} def 


This program demonstrates a simple line breaking 
algorithm. 


Constant used for word breaks (ASCII space). 
‘‘BreakIntoLines’’ takes a string of text and breaks it up 
into a series of lines, each no longer than the maximum 
line width. The algorithm breaks lines at word breaks 
(spaces) only. ‘‘BreakIntoLines’’ takes three arguments: 
the string of text, the maximum line width and a 
procedure to be executed each time the end of a line has 
been found. The procedure is expected to take one 
argument: a string containing the current line. 

Get the width of a word break in the current font. 
“‘curwidth’’ is the typeset width of the current line. 
“‘lastwordbreak’’ is the index of the most recent word 
break encountered in the string of text. 

“‘startchar’’ is the index of the first character on the 
current line. 

“‘restoftext’’ is a temporary variable that holds the 
remaining results of the search operator (see the loop 
below). 


The basic strategy for breaking lines is to search the 
string of text (contained in “‘restoftext’’) for the next 
word break. The pre-string returned by the search 
operator is the word preceding the word break. The 
post-string returned gets assigned to “‘restoftext.”’ 

If the width of the word returned by the search 
operator would force the current line to exceed the 
maximum line width then the substring spanning the 
current line (from the first character on the line to the 
most recent word break) is passed as an argument to the 
user’s procedure. Otherwise the width of the current line 
is incremented by the width of the word. 


The ‘‘lastwordbreak’’ variable is updated to index into 
the text string at the position of the most recent word 
break. 

The last word in the text has been found when the 
search operator fails to match the word break pattern; 
this terminates the loop. 


Don’t forget to process the last line. 
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In every period there have been better or 
worse types employed in better or worse 

ways. The better types employed in better 
ways have been used by the educated printer 
acquainted with standards and history, 
directed by taste and a sense of the fitness of 
things, and facing the industrial conditions and 
the needs of his time. Such men have made of 
printing an art. The poorer types and methods 
have been employed by printers ignorant of 
standards and caring alone for commercial 
success. To these, printing has been simply a 
trade. The typography of a nation has been 
good or bad as one or other of these classes 
had the supremacy. And to-day any intelligent 
printer can educate his taste, so to choose 
types for his work and so to use them, that he 
will help printing to be an art rather than a 
trade. —Daniel Berkeley Updike. 


1 inch 
72 points 


Program 12 / A Simple Line Breaking Algorithm 


/Times-Roman findfont 16 scalefont setfont 


/yline 650 def 


(In every period there have been better or worse\ 
types employed in better or worse ways. The\ 
better tyoes employed in better ways have been\ 
used by the educated printer acquainted with\ 
standards and history, directed by taste and\ 
a sense of the fitness of things, and facing the\ 
industrial conditions and the needs of his time.\ 
Such men have made of printing an art. The\ 
poorer types and methods have been employed\ 
by printers ignorant of standards and caring\ 
alone for commercial success. To these, printing\ 
has been simply a trade. The typography of a\ 
nation has been good or bad as one or other of\ 
these classes had the supremacy. And to-day\ 
any intelligent printer can educate his taste, so\ 
to choose types for his work and so to use them,\ 
that he will help printing to be an art rather\ 
than a trade. \261Daniel Berkeley Updike.) 

300 

{ 72 yline moveto show 

/yline yline 18 sub def} 


BreakIntoLines 


showpage 


(continued) 


Below is an example of the how the ‘‘BreakIntoLines’’ 
procedure might be used. 

“‘yline’’ is a variable used in the procedure provided to 
‘‘BreakIntoLines’’ below. 


Use a line width of 300 points. 

The procedure provided to ‘‘BreakIntoLines’’ takes a 
string as its argument. It uses a global variable ‘‘yline’’ 
to keep track of vertical positioning on the page. It 
moves to a specified position on the page, shows the 
string in the current font and then updates the vertical 
position. 

EXERCISE FOR THE READER: If the user specifies a 
short enough line width, it is possible for the typeset 
width of a single word to exceed the maximum line 
width. Modify this algorithm to handle this event 
gracefully. 
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NOTE: This is not the actual output page produced by the following POSTSCRIPT program. The 
rectangles are scaled down versions of the 8 1/2" by 11" pages generated by the program. 


Program 13 / Making a Poster 


/printposter 
{ /rows exch def 
/columns exch def 
/bigpictureproc exch def 


newpath 
leftmargin botmargin moveto 
0 pageheight rlineto 
pagewidth 0 rlineto 
0 pageheight neg rlineto 
closepath clip 


leftmargin botmargin translate 


0 1 rows 1 sub 
{ /rowcount exch def 
0 1 columns 1 sub 
{ /colcount exch def 
gsave 
pagewidth colcount mul neg 
pageheight rowcount mul neg 
translate 


bigpictureproc 
gsave showpage grestore 


grestore 
} for 
} for 
} def 


This program demonstrates how to print a picture larger 
than a sheet of paper (8.5" by 11") on several sheets of 
paper that can be pasted together later. 


“‘printposter’’ takes a large picture (larger than 8.5" by 
11") and prints it on several pages according to the 
number of rows and columns specified. Imagine 
superimposing a grid composed of the specified number 
of rows and columns on the large image. Then each 
rectangle in the grid represents an 8.5" by 11" page to be 
printed. ‘‘printposter’’ takes three arguments: a 
procedure representing the large picture, the number of 
columns and the number of rows. 


Set up a clipping region for the page we will print on. 
Since most printers cannot print to the very edge of the 
paper, we will explicitly set up the clipping boundary so 
that it lies within the printing boundaries of the printer 
and we will compensate for this when we print the large 
image so that all parts of the image are actually printed. 


Readjust the origin on the page so that it coincides with 
the origin of the clipping boundary. 


For each row of pages... 


For each page within that row... 


Translate the large picture so that the desired section 
will be imaged on the printed page. We must translate 
the large picture in the negative direction so that the 
lower left corner of the section to be printed always 
coincides with the origin. 

Execute the large picture, clipping to this page. 

Since the showpage operator has the side effect of 
executing the initgraphics operator (which would reset 
the clipping region), we bracket it by the gsave and 
grestore operators. 
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NOTE: This is not the actual output page produced by the following POSTSCRIPT program. The 
rectangles are scaled down versions of the 8 1/2" by 11" pages generated by the program. 


| Program 13 / Making a Poster 


/inch {72 mul} def 


/leftmargin .5 inch def 

/botmargin .25 inch def 
/pagewidth 7.5 inch def 
/pageheight 10 inch def 


/salesign 
{ gsave 


/Times-Roman findfont 500 scalefont setfont 
2.5 inch 11 inch moveto 
(SALE) show 
/Times-Roman findfont 350 scalefont setfont 
1.45 inch 4 inch moveto 
.5 setgray (50%) show 
0 setgray ( OFF) show 
newpath 
.5 inch 18 inch moveto 
22 inch 18 inch lineto 
22 inch 2 inch lineto 
.5 inch 2 inch lineto 
closepath 
gsave 
.75 inch setlinewidth stroke 
grestore 
10 setlinewidth 1 setgray stroke 


grestore 
} def 


{salesign} 3 2 printposter 


(continued) 


These are the dimensions of the clipping boundary. 


This procedure draws a large sign with a border. The 
sign is 22.5 inches wide and 19.5 inches high which fits 
comfortably on 6 8.5 inch by 11 inch pages (the final 
result will be 2 rows of pages high and 3 columns of 
pages wide). 


Specify the path for the border. 


First paint the border with a thick black stroke. 


Then paint a thin white stroke down the center of the 
border. 


Print the large picture on a total of 6 pages. The image is 
three columns of pages wide and 2 rows of pages high. 


187 


Blueberry 


Appl 
PRS Vanilla Cream 


Boston Cream 


January Pie Sales 


1 inch 


72 points 


Program 14 / Drawing a Pie Chart 


This program demonstrates a small application: drawing 


a pie chart. 
/PieDict 24 dict def Local storage for ‘‘DrawPieChart’’ and its related 
PieDict begin procedures. 
/DrawSlice ‘‘DrawSlice’’ draws an outlined and filled-in pie slice. 


{ /grayshade exch def 
/endangle exch def 
/startangle exch def 
/thelabel exch def 


newpath 0 0 moveto 

0 0 radius startangle endangle arc 
closepath 
1.415 setmiterlimit 


gsave 
grayshade setgray 
fill 

grestore 

stroke 

gsave 
startangle endangle add 2 div rotate 


radius 0 translate 
newpath 
0 0 moveto labelps .8 mul 0 lineto stroke 
labelps 0 translate 
0 0 transform 
grestore 
itransform 
/y exch def /x exch def 
x y moveto 


x Olt 
{ thelabel stringwidth pop neg 0 rmoveto } 
if 
y Olt { 0 labelps neg rmoveto } if 
thelabel show 
} def 


It takes four operands: the label for this particular pie 
slice, the starting angle for the slice, the ending angle for 
the slice and the shade of gray the slice should be. 


Create a path in the shape of a pie slice. 


This prevents a spike from occurring on the interior 
angles when we outline the pie slices. The value 1.415 
cuts off miters at angles below 90 degrees. 

Fill the pie slice path with the appropriate gray color. By 
using gsave and grestore we don’t lose the current 

path. Since color is painted onto the page, we fill the pie 
slice first and then outline it with a stroke. 


The following draws the tick-mark and places the label: 
Find the center of the pie slice and rotate so that the 
X-axis coincides with this center. 

Translate the origin out to the circumference. 

Draw the tick-mark; make it 80 percent of the label 
point size in length. 

Move the origin out a little beyond the circumference. 
Place the label at the current origin. If we simply draw 
the text on the page now, it would come out rotated. 
Since this is not desired, we avoid it by returning to the 
previous unrotated coordinate system. Before returning, 
we remember the position of the current origin on the 
printed page. We accomplish this by using the 
transform and itransform operators. First perform a 
transform on the origin to push the coordinates of the 
origin in device space onto the operand stack. Then 
perform a grestore to return to the previous unrotated 
coordinate system. Then perform an itransform on the 
two device coordinates left on the stack to determine 
where they are in the current coordinate system. 


Make some adjustments so that the label text won’t 
collide with the pie slice. 
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Program 14 / Drawing a Pie Chart 


(continued) 
/findgray ‘*findgray’’ calculates the gray value for a slice. It takes 
{ /i exch def /n exch def two arguments: the total number of slices and the 
i 2 mod 0 eq current slice number (Given that there are n pie slices, 


{i 2 div n 2 div round add n div } 
{i 1 add 2 div ndiv} 


the slices are ‘‘numbered’’ from | to n). The gray values 
for the pie slices range evenly from white to black (i.e., 


ifelse the values provided to setgray range from (n/n, n-1/n, 
} def .., [/n)). Since we don’t want similar values of gray 
end next to each other, findgray “‘shuffles’’ the possible 


combinations of gray like a deck of cards. 


/DrawPieChart 
{ PieDict begin 


“‘DrawPieChart’’ takes seven arguments: the title of the 
pie chart, the point size for the title, the point size for the 


/radius exch def 

/ycenter exch def /xcenter exch def 
/PieArray exch def 

/labelps exch def /titleps exch def 
/title exch def 


gsave 
xcenter ycenter translate 


/Helvetica findfont titleps scalefont setfont 

title stringwidth pop 2 div neg radius neg 
titleps 3 mul sub moveto 

title show 

/Helvetica findfont labelps scalefont setfont 

/numslices PieArray length def 

/slicecnt 0 def 

/curangle 0 def 


PieArray 


{ /slicearray exch def 
slicearray aload pop 
/percent exch def 
/label exch def 
/perangle percent 360 mul def 
/slicecnt slicecnt 1 add def 
label curangle curangle perangle add 
numslices slicecnt findgray DrawSlice 
/curangle curangle perangle add def 
} forall 
grestore 


labels for each slice, a special array (described below 
where ‘‘DrawPieChart’’ is called), the (x,y) center of 
the pie chart, and the radius of the pie chart. 


Translate the coordinate system origin to the center of 
the pie chart. 

Print the title of the pie chart in Helvetica. 

Center the title below the pie chart. Position it below the 
bottom of the pie chart by 3 times the title point size. 


Print the individual pie slice labels in Helvetica. 

A “‘loop’’ variable that keeps track of the angle of arc to 
begin each pie slice at. 

Repeat the following for each element in the 


“‘PieArray.”’ 


Push the label and percentage onto the stack. 


Convert the percentage into degrees of angle. 


Update the current starting angle. 


end 
} def 
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Program 14 / Drawing a Pie Chart 


(continued) 
(January Pie Sales) 24 12 
[ (Blueberry) .12 ] The pie array is an array of arrays. Each array in the pie 
[(Cherry) .30 ] array contains the label for a pie slice followed by a real 
[(Apple) .26 ] number indicating the percentage of the total pie 


( 
( 
[(Boston Cream) .16 ] represented by this particular slice. 
[(Other) .04 ] 
[(Vanilla Cream) .12 ] 
] 306 396 140 DrawPieChart 
showpage 
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Basket weave, no rotation in user space Fish scale, 90 degree rotation in user space 


1 inch 
72 points 


Program 15 / Filling an Area with a Pattern 


This program demonstrates how to fill an area with a 
bitmap pattern using the POSTSCRIPT halftone screen 
machinery. The setscreen operator is intended for 
halftones and a reasonable default screen is provided by 
each POSTSCRIPT implementation. It can also be used for 
repeating patterns but the device dependent nature of the 
setscreen operator can produce different results on 
different printers. As a solution to this problem the 
procedure, ‘‘setuserscreen,’’ is defined to provide a 
device independent interface to the device dependent 
setscreen operator. 
IMPLEMENTATION NOTE: Creating low frequency 
screens (below 60 lines per inch in device space) may 
require a great deal of memory. On printing devices 
with limited memory, a limitcheck error occurs when 
storage is exceeded. To avoid this error, it is best to 
minimize memory use by specifying a repeating pattern 
that is a multiple of 16 bits wide (in the device 
x-direction) and a screen angle of zero. 
/setuserscreendict 22 dict def 


setuserscreendict begin Local storage for the procedure ‘‘setuserscreen.”’ 
/tempctm matrix def Temporary matrices used in computations in 
/temprot matrix def ‘*setuserscreen.’’ 


/tempscale matrix def 


/concatprocs “‘concatprocs’’ takes two procedure bodies as 
{ /proc2 exch cvlit def arguments and concatenates them into one procedure 
/proc1 exch cvlit def body. The resulting procedure body is left on the 
/newproc proc length proc2 length add operand stack. ‘‘concatprocs’’ will be used in 
array def constructing a new spot function below. This procedure 
newproc 0 proci putinterval is identical to the one defined in the program ‘‘Printing 
newproc proci length proc2 putinterval Images.”’ 
newproc cvx 
} def 
/resmatrix matrix def Temporary matrix used in ‘‘findresolution’’ below. 
/findresolution “*findresolution’’ returns the resolution (in pixels per 
{ 72 0 resmatrix defaultmatrix dtransform inch) of the device being printed on. Since there are 72 
/yres exch def /xres exch def units per inch in the default user space, find out how 
xres dup mul yres dup mul add sqrt many pixels those 72 units require in device space by 
} def transforming a 72 unit long vector into device space and 
end then taking the length of the result. Leave this length on 


the operand stack. 
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Program 15 / Filling an Area with a Pattern 


/setuserscreen 
{ setuserscreendict begin 
/spotfunction exch def 
/screenangle exch def 
/cellsize exch def 


/m tempctm currentmatrix def 
/rm screenangle temprot rotate def 
/sm cellsize dup tempscale scale def 


sm rm mm concatmatrix m concatmatrix pop 


1 0 mdtransform /y1 exch def /x1 exch def 


/veclength x1 dup mul y1 dup mul add sqrt def 
/frequency findresolution veclength div def 


/newscreenangle y1 x1 atan def 


m 2 get m1 get mul m 0 get m 3 get mul sub 
0 gt 


{ { neg } /spotfunction load concatprocs 
/spotfunction exch def 
} if 


frequency newscreenangle /spotfunction load 
setscreen 
end 
} def 


/setpatterndict 18 dict def 
setpatterndict begin 
/bitison 
{ /ybit exch def /xbit exch def 
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(continued) 


“‘setuserscreen’’ takes 3 arguments: the cell size of the 
halftone screen in the current user space units, the angle 
of the screen relative to the current user space and a 
procedure describing the spot function. ‘‘setuserscreen’”’ 
converts the cell size and the screen angle from user 
space into device space values for the built-in operator 
setscreen. 

Get the current transformation matrix. 

Create a rotation matrix using the screen angle. 

Create a scale matrix using the cell size. 


Create a new transformation matrix by concatenating 
sm*rm*m and store it in ‘‘m.”’ 

Transform a | unit vector in the x-direction through the 
new transformation matrix to get the corresponding 
vector in device space. 

Find the length of this device space vector. 

The frequency is the resolution of the device divided by 
the length of the vector. 

Determine the new screen angle based on the angle of 
the transformed unit vector in device space. 

Merely determining the screen angle is not enough in 
some cases since the user coordinate system might be a 
reflected image of the device coordinate system. We can 
check for reflected images by testing the transformation 
matrix. Given a matrix [a b c d tx ty], if (c*b - a*d) > 0 
then it’s a reflected transformation. 

Compensate for the reflection by flipping the y 
coordinate that is passed to the spot function procedure. 
We accomplish this by concatenating a procedure to flip 
the y coordinate with the original spot function 
procedure to create a new spot function procedure. It is 
very important that the flip procedure precedes the spot 
function procedure. 

Now set up the halftone screen using the setscreen 
operator. 


Local storage for the procedure ‘‘setpattern.’’ The 
“‘bitison’’ procedure is used by “‘setpattern.’’ 
‘‘bitison’’ returns true if the bit at position (xbit, ybit) 
in “‘bstring’’ is “‘on’’ (i.e., it has the value 1), it returns 
false otherwise. ‘‘bitison’’ takes 2 arguments: the x 
and y position of the bit in a 2 dimensional coordinate 
system. It relies on the two global variables “‘bstring’’ 


Program 15 / Filling an Area with a Pattern 


/bytevalue bstring ybit bwidth mul xbit 8 idiv 
add get def 


/mask 1 7 xbit 8 mod sub bitshift def 
bytevalue mask and 0 ne 
} def 
end 


/bitpatternspotfunction 
{ setpatterndict begin 
/y exch def /x exch def 


/xindex x 1 add 2 div bpside mul cvi def 
/yindex y 1 add 2 div bpside mul cvi def 


xindex yindex bitison 
{ /onbits onbits 1 add def 1 } 
{ /offbits offbits 1 add def 0 } 
ifelse 
end 
} def 


/setpattern 
{ setpatterndict begin 
/cellsz exch def 
/angle exch def 
/pwidth exch def 
/bpside exch def 
/bstring exch def 


/onbits 0 def /offbits 0 def 

cellsz angle /bitpatternspotfunction load 
setuserscreen 

{} settransfer 


(continued) 


and ‘‘bwidth’’ (documented in ‘‘setpattern’’ below). 
Get the integer representation of the hexadecimal 
character pair containing the bit to be tested in the 
string. 

Create a mask to address the correct bit. 

Leave the boolean result on the operand stack. 


“‘bitpatternspotfunction’’ is the procedure provided to 
the ‘‘setuserscreen’’ procedure as the spot function. 
Like all setscreen spot functions, it takes two 
arguments: the x and y coordinates of a pixel in a 
halftone screen cell. (See the section on Halftone 
Screens in the ‘‘POSTSCRIPT Language Reference 
Manual.’’) Note that the global variables ‘‘onbits’’ and 
‘‘offbits’’ must be set to 0 before this spot function is 
used with the setscreen operator (see “‘setpattern’’ 
below). 

First, transform the (x, y) position into a position to 
address into the bit pattern. Since the x and y values 
provided to the spot function are between -1 and 1, 
transform them into integers between 0 and (bpside-1). 


If the bit is on, increment the ‘‘onbits’’ count and return 
a high value, otherwise increment the ‘‘offbits’’ count 
and return a low value. 


“*setpattern’’ sets up the halftone screen machinery so 
that a repeating bitmap pattern will be used for 
subsequent graphics output operations. It takes 5 
arguments: ‘‘bstring’’ is the bit pattern represented as a 
string, ‘‘bpside’’ is the number of bits per side (the 
pattern must be square), ‘‘bwidth’’ is an integer 
specifying the width of the pattern in bytes (each row of 
the pattern is expressed in an integral number of bytes, 
which may contain extra zeroes if ‘‘bpside’’ is not a 
multiple of 8), ‘‘angle’’ is the screen angle and ‘‘cellsz’’ 
is the halftone screen cell size. The first 3 arguments 
later serve as global variables to ‘‘bitison.”’ 

Initialize ‘‘onbits’’ and ‘‘offbits.’’ 

Set up the halftone screen. 


Don’t allow correction of gray values, because we want 
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Program 15 / Filling an Area with a Pattern 


offbits offbits onbits add div setgray 
end 
} def 


/enlargebits 
{ /owidth exch def 
/bpside exch def 
/bstring exch def 


0.08 setlinewidth 
0 1 bpside 1 sub 
{ /y exch def 
0 1 bpside 1 sub 
{ /x exch def 
x y setpatterndict /bitison get cvx exec 
{ gsave 
x y translate 
newpath 
00 moveto 0 1 lineto 
11 lineto 1 0 lineto 
closepath 
gsave 0 setgray fill grestore 
1 setgray stroke 
grestore 
} if 
} for 
} for 
newpath 
00 moveto 0 bpside lineto 
bpside dup lineto bpside 0 lineto 
closepath 0 setgray stroke 
} def 
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(continued) 


to set the gray exactly according to the off-bit/total-bits 
ratio. 

By setting the gray this way, the exact number of ‘‘on’’ 
bits will turn on in the screen. The values of ‘‘offbits’’ 
and ‘‘onbits’’ are calculated when the setscreen 
operator is executed (see ‘‘bitpatternspotfunction’’ 
above). 


“‘enlargebits’’ is used to print an enlarged bit pattern to 
illustrate the bit patterns used in ‘‘setpattern’’ below. It 
takes 3 arguments: ‘‘bstring,’’ ‘“bpside,’’ and ‘‘bwidth’’ 
(See description of ‘‘setpattern’’ above). A black square 
is printed for each ‘‘on’’ bit. The squares are one unit in 
size so the coordinate system should be scaled 
appropriately before ‘‘enlargebits’’ is called. Note that 
the earlier bits in the pattern are printed in the lower 
positions of the grid. The high order bit of the first byte 
of the pattern is the lower left bit, and the low order bit 
of the last byte in the pattern is the upper right bit. 
Specify a small line width since this will be scaled. 

For each bit in the y direction ... 


For each bit in the x direction ... 


If the bit is ‘‘on’’ print a black square at the appropriate 
place on the page. 


Define a | unit square path. 


Fill it in with black. 
Put a white outline around it. 


Put a black outline around the entire bit pattern. 


Program 15 / Filling an Area with a Pattern 


/inch {72 mul} def 


/showpattern 
{ /ang exch def 

/pat exch def 

gsave 
0 3.5 inch translate 
3 8 div inch dup scale 
pat 8 1 enlargebits 

grestore 

pat 8 1 ang 72 300 32 div div setpattern 


newpath 
0 0 moveto 3 inch 0 lineto 
3 inch dup lineto 0 3 inch lineto 
closepath fill 
} def 


/pat1 <d1e3c5885c3e1d88> def 
/pat2 <3e418080e3140808> def 


/Helvetica findfont 12 scalefont setfont 


gsave 
1 inch 1.25 inch translate 
pat! 0 showpattern 
grestore 
1 inch 1 inch moveto 
(Basket weave, no rotation in user space) show 


gsave 
4.5 inch 1.25 inch translate 
pat2 90 showpattern 
grestore 
4.5 inch 1 inch moveto 
(Fish scale, 90 degree rotation) show 
(in user space) show 
showpage 


(continued) 


““showpattern’’ demonstrates the use of the above 
functions. First display a pattern as enlarged bits, and 
then use it to fill an area below the enlarged bits on the 


page. 


Show the enlarged version of the pattern. 


First set up the pattern with the halftone screen 
machinery. The patterns we are using are 8 bits wide 
(i.e., 1 byte wide) and we want a target frequency that is 
a multiple of 16 bits (see implementation note above). 
Define an area to be filled. 


Use hexadecimal string notation to set the bit patterns. 
Each pair of hexadecimal characters represents a ‘‘row’’ 
in the bit pattern. 


Font used for printing captions. 


Show a basket weave pattern on the left. 


Show a fish scale pattern on the right, but rotate it by 90 
degrees. The enlarged bitmap pattern is not rotated but 
the filled area is. 


197 


outlineOUtline 
outlineOUtiline 


Boktryckarkonsten ii killan till praktiskt taget all minsklig odling, 
Printing is the source of practically all human evolution. 

Den férutan hade de oerhérda framstegen inom vetenskap 
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Without it the tremendous progress inthe fi 
och teknik inte varit méjliga. 
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-VALTER FALK 


Making an Outline Font 


Re-encoding an Entire Font 


Making Small Changes 
to Encoding Vectors 


*Every bullet has its billet. “William IIT 
*The bullet that will kill me is not yet cast. “Napoleon I 
*The ballot is stronger than the bullet. Abraham Lincoln 


‘Every bullet has its billet. -William IIL 
The bullet that will kill me is not yet cast. Napoleon I 
The ballot is stronger than the bullet. Abraham Lincoln 


Every bullet has its billet. -William IIL 
©The bullet that will kill me is not yet cast. Napoleon I 
©The ballot is stronger than the bullet. ~Abraham Lincoln 


Hieroglyphics are the root of letters. All 
characters were originally signs and all 
signs were once images. Human society, 
the world, man in his entirety is in the 
alphabet. 1 
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Changing the Character Widths 


of a Font 


Creating an Analytic Font 


Creating a Bitmap Font 


PROGRAMS 16-21 


Although a large variety of fonts are available with the 
POSTSCRIPT language, there are situations when users may wish 
to modify the existing fonts or create new fonts. This section 
presents several examples of modifying existing fonts to change 
their rendering style (from filled to outlined), the character 
widths or the encoding of characters. There are also 2 examples 
of creating entirely new fonts: one using bitmap character 
descriptions and the other using analytic character descriptions. 


The basic underlying structure of a font is the font dictionary. 
When fonts are modified, the entries in the font dictionary are 
changed. When new fonts are created, certain crucial entries in 
the font dictionary must be present. Some of the details on the 
entries in a font dictionary and how to modify them are ex- 
plained below; for a full explanation refer to the POSTSCRIPT 
Language Reference Manual. 


MODIFYING EXISTING FONTS 


The basic strategy for modifying an existing font is to create an 
entirely new font dictionary and to copy all the references to 
entries in the original font dictionary, except for the FID entry, 
into the new dictionary. The next step is to modify the ap- 
propriate fields. The last step is to perform a definefont opera- 
tion on the modified font dictionary to make it into a 
POSTSCRIPT font. 


There are two important steps to remember when modifying an 
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existing font. The first is not to copy the FID field from the 
original font dictionary to the new dictionary. The FID field will 
automatically get created when the definefont operator is ex- 
ecuted. Attempting to perform a definefont operation on a dic- 
tionary that already contains an FID field results in an 
invalidfont error. The second step is to change the FontName 
field in the new dictionary. The same name which appears in the 
FontName field should be provided as an argument to the 
definefont operator. The FontName should always be a unique 
name. 


In addition, for fonts that have a UniquelD field, it is important 
to change the UniqueID field when the font is modified. The 
only case when the UniqueID field should not be changed is 
when the Encoding field of a font dictionary has been changed. 
Changing the UniqueID should be done with care. See the 
programs ‘*‘Making an Outline Font’’ and ‘“‘Changing the Char- 
acter Widths of a Font’’ for examples of this. 


CREATING NEW FONTS 


When creating new fonts, certain font dictionary entries must be 
present. They are FontMatrix, FontType, FontBBox, Encoding 
and BuildChar. For a user defined font, the FontType should al- 
ways have the value 3. In addition, it is useful, although not 
necessary, to have a UniqueID entry. The UniquelD entry 
facilitates better caching of characters on disk-based implemen- 
tations of the POSTSCRIPT interpreter. (Be forewarned that the 
UniqueID must truly be a unique 24 bit number and that the 
creator of the font is responsible for ensuring this.) 


The BuildChar procedure is responsible for specifying how a 
character in the new font is rendered. It should always call either 
the setcachedevice or setcharwidth operator. The BuildChar 
procedure can use almost all of the POSTSCRIPT operators to 
render a character. However, there are some restrictions when 
the character is to be cached (i.ec., when the setcachedevice 
operator has been used). In this case, any of the operators related 
to gray-level and color are invalid (e.g., setgray, setrgbcolor, 
image, etc). 


MODIFYING AND CREATING FONTS 


In the character descriptions for a new font, it is a good idea to 
create a character description that will be printed for 
“‘undefined’’ characters. This character is called ‘*.notdef’’ in 
the built-in fonts, and it is defined to print nothing. When users 
try to print characters that have not been defined in the font, the 
““ notdef’’ character is printed; the ‘‘.notdef’’ character is a 
graceful way of avoiding unexpected errors. As well as creating 
a character description for the undefined character, it is impor- 
tant that the encoding vector have the name of this undefined 
character in each location that does not have a character defined. 
The simplest way to do this is to initialize all the entries in the 
encoding vector to contain the ‘‘.notdef’’ character and then 
enter the character names in the desired positions. 


ABOUT THE PROGRAMS 


The program ‘“*‘Making an Outline Font’’ is an example of 
modifying an existing font to change its rendering style. The 
program defines a general procedure ‘‘MakeOutlineFont’’ that 
takes one of the standard built-in fonts and converts it to an 
outline font. (The term ‘“‘built-in fonts’’ refers to the collection 
of fonts available with a POSTSCRIPT implementation.) This pro- 
cedure will only yield the correct results for fonts that have their 
characters described as outlines. 


“‘Re-encoding an Entire Font’’ presents a general procedure 
“*ReEncode’’ for changing the encoding vector of a font. The 
encoding vector is a mapping of character codes (in the range of 
0 to 255) to character names. Most of the built-in fonts are en- 
coded according to a standard encoding, but there are cases 
where other encodings may be required such as printing text that 
has been represented according to the EBCDIC encoding. The 
specific example demonstrated in the program ‘“‘Re-encoding an 
Entire Font’’ re-encodes a built-in font to have the EBCDIC en- 
coding by replacing the encoding vector in the font dictionary 
with an entirely new encoding vector. 


“‘Making Small Changes to Encoding Vectors’’ presents an al- 
ternative to replacing the entire encoding vector for situations 
when the encoding vector only needs to be changed slightly. 
Most of the built-in fonts contain characters that have not been 
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encoded, such as accented characters. To print such characters, 
the name of the character must be inserted into the encoding vec- 
tor. However, we do not want to specify the entire encoding vec- 
tor to insert a few new characters so the procedure 
““ReEncodeSmall’’ has been defined to handle this insertion. 


When encoding accented characters it is important to understand 
that accented characters (also known as composite characters) 
are actually a composite of the letter and the accent. In order to 
print accented characters properly, both the letter and the accent 
of the composite character must be encoded in the encoding vec- 
tor, as well as the composite character itself. For example, if you 
wish to encode the composite character ‘‘Aacute,’’ both the 
“*A’’ and the “‘acute’’ must be encoded. 


“‘Changing the Character Widths of a Font’’ defines a general 
procedure, “‘ModifyWidths,’’ for changing some or all of the 
character widths in a given font. It changes the necessary entries 
in the font dictionary. In this example the character widths of a 
font are rounded such that when the characters are printed at a 
certain point size, the widths will be an integral number of pixels 
in device space. This is useful for avoiding round-off error in 
positioning characters with the show operator. 


The program ‘*Creating an Analytic Font’’ demonstrates how to 
create a new font whose character descriptions are geometric in 
nature. The program defines all the necessary font dictionary 
entries as well as some new entries of its own. The font created 
has 4 characters: bullets of three sizes and an open box shape. 
Each character is described using the POSTSCRIPT graphic 
operators. After the font has been defined it is used in an ex- 
ample that prints the various characters intermixed with one of 
the built-in fonts. 


The final program, ‘‘Creating a Bitmap Font,’’ demonstrates an 
efficient way to create a new font whose character descriptions 
are bitmaps. 


MODIFYING AND CREATING FONTS 
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Program 16 / Making an Outline Font 


/makeoutlinedict 7 dict def 

/MakeOutlineFont 

{ makeoutlinedict begin 
/uniqueid exch def 
/strokewidth exch def 
/newfontname exch def 
/basefontname exch def 


/basefontdict basefontname findfont def 


/numentries basefontdict maxlength 1 add def 


basefontdict /UniquelD known not 
{ /numentries numentries 1 add def } if 


/outfontdict numentries dict def 


basefontdict 
{ exch dup /FID ne 
{ exch outfontdict 3 1 roll put } 
{ pop pop } 
ifelse 
} forall 


outfontdict /FontName newfontname put 
outfontdict /PaintType 2 put 

outfontdict /StrokeWidth strokewidth put 
outfontdict /UniquelD uniqueid put 


newfontname outfontdict definefont pop 
end 
} def 


This program defines a general procedure to take one of 
the built-in filled fonts and convert it into an outline 
font. (This program will also work for downloadable 
fonts available from Adobe Systems, Inc.). 


Local storage for the procedure ‘‘MakeOutlineFont.”’ 
‘*MakeOutlineFont’’ takes one of the built-in filled 
fonts and makes an outlined font out of it. It takes four 
arguments: the name of the font on which to base the 
outline version, the new name for the outline font, a 
stroke width to use on the outline and a unique ID. 


Get the dictionary of the font on which the outline 
version will be based. 

Determine how large the new font dictionary for the 
outline font should be. Make it one entry larger to 
accommodate an entry for the stroke width used on the 
outline. 

Make sure there is room for the unique ID field. (Not all 
fonts have UniqueID fields initially. In particular, the 
built-in fonts in POSTSCRIPT version 23.0 do not.) 
Create a dictionary to hold the description for the 
outline font. 

Copy all the entries in the base font dictionary to the 
outline dictionary, except for the FID. 


Ignore the FID pair. 


Insert the new name into the dictionary. 
Change the paint type to outline. 

Insert the stroke width into the dictionary. 
Insert the new unique ID. 


Now make the outline dictionary into a POSTSCRIPT font. 


We will ignore the modified dictionary returned on the 
stack by the definefont operator. 
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Program 16 / Making an Outline Font 


/Helvetica-Bold /Helvetica-Outline1 1000 54 div 


/Helvetica-Bold findfont dup /UniquelD known 
{ /UniquelD get 1 add } 
{ pop 1} 
ifelse 

MakeOutlineFont 


/Helvetica-Outline1 findfont 36 scalefont setfont 
72 504 moveto (outline) show 


/Helvetica-Outline1 findfont 54 scalefont setfont 
(outline) show 


/Helvetica-Bold /Helvetica-Outline2 1000 36 div 


/Helvetica-Bold findfont dup /UniquelD known 
{ /UniquelD get 2 add } 
{ pop 2 } 
ifelse 

MakeOutlineFont 


/Helvetica-Outline2 findfont 36 scalefont setfont 
72 444 moveto (outline) show 


/Helvetica-Outline2 findfont 54 scalefont setfont 
(outline) show 
showpage 


(continued) 


The following demonstrates how to use the 
‘“*MakeOutlineFont’’ procedure and how to determine 
new unique ID’s. 


The stroke width is always specified in the character 
coordinate system (1000 units) The value specified here, 
1000/54 will yield a one point wide outline when the 
font is scaled to 54 points in size. Note that this outline 
width changes with different point sizes. 

Determine the unique ID. If the “‘base’’ font already 
contains a unique ID, add a unique constant to it, 
otherwise pick a unique integer and leave that value on 
the operand stack. 


A stroke width value of 1000/36 yields a one point wide 
outline when the font is scaled to 36 points in size. It 
yields a 1.5 point outline when the font is scaled to 54 
points in size (54/36 = 1.5). 


NOTE: If the font is scaled anamorphically, the outline 
stroke on the characters will be scaled anamorphically 
as well, leading to potentially undesirable results. 
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Octal Standard EBCDIC Octal Standard EBCDIC Octal Standard EBCDIC Octal Standard EBCDIC 
Number — Char Char Number = Char Char Number = Char Char Number = Char Char 


0 100 @ 200 300 

1 101 A 201 a 301 A 
2 102 B 202 b 302 ‘ B 
3 103 Cc 203 c 303 c 
4 104 D 204 d 304 <. D 
5 105 E 205 e 305 Pi E 
6 106 F 206 f 306 . F 
7 107 G 207 g 307 ‘ G 
10 110 H 210 h 310 H 
11 111 I 211 i 311 I 
12 112 J ¢ 212 312 7 

13 113 K : 213 313 ‘ 

14 114 1B < 214 314 

15 115 M ( 215 315 mi 

16 116 N + 216 316 . 

17 117 O | 217 317 Y 

20 120 P & 220 320 — 

21 121 Q 221 j 321 J 
22 122 R 222 k 322 K 
23 123 S 223 1 323 L 
24 124 T 224 m 324 M 
25 125 U 225 n 325 N 
26 126 Vv 226 ° 326 O 
27 127 WwW 227 p 327 P 
30 130 x 230 q 330 Q 
31 131 Y 231 r 331 R 
32 132 Z ! 232 332 

33 133 [ $ 233 333 

34 134 \ Mi 234 334 

35 135 ) 235 335 

36 136 A : 236 336 

37 137 * ~ 237 337 

40 140 ‘ - 240 340 

41 ! 141 a / 241 i 341 A 

42 a 142 b 242 ¢ s 342 S 
43 # 143 c 243 £ t 343 T 
44 $ 144 d 244 % u 344 U 
45 % 145 e 245 ¥ v 345 Vv 
46 & 146 246 f w 346 WwW 
47 , 147 g 247 § x 347 x 
50 ( 150 h 250 bet y 350 L Y 
51 ) 151 i 251 : Z 351 (2) Z 
52 i 152 j 252 4 352 es) 

53 + 153 k ; 253 « 353 ig 

54 : 154 % 254 < 354 

55 - 155 m _ 255 > 355 

56 , 156 n > 256 fi 356 

57 / 157 to) ? 257 fl 357 

60 0 160 P 260 360 0) 
61 1 161 q 261 - 361 e 1 
62 2 162 r 262 7 362 2 
63 3 163 s 263 £ 363 3 
64 4 164 t 264 : 364 4 
65 > 165 u 265 365 1 5 
66 6 166 v 266 q 366 6 
67 7 167 w 267 . 367 7 
70 8 170 x 270 ‘ 370 t 8 
71 o 171 y 271 3 371 @ 5 
72 : 172 Z : 272 of 372 ce 

73 ; 173 { # 273 » 373 B 

74 < 174 | @ 274 “et 374 

75 7 175 } , 275 Soo 375 

76 > 176 ~ = 276 376 

77 ? 177 * 277 é 377 
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Program 17 / Re-encoding an Entire Font 


/reencodedict 5 dict def 
/ReEncode 
{ reencodedict begin 
/newencoding exch def 
/newfontname exch def 
/basefontname exch def 


/basefontdict basefontname findfont def 
/newfont basefontdict maxlength dict def 


basefontdict 
{ exch dup dup /FID ne exch /Encoding ne and 
{ exch newfont 3 1 roll put } 
{ pop pop } 
ifelse 
} forall 
newfont /FontName newfontname put 
newfont /Encoding newencoding put 
newfontname newfont definefont pop 
end 
} def 


/EBCDIC 256 array def 
0 1 255 { EBCDIC exch /.notdef put } for 
EBCDIC 
dup 8#100 /space put 
dup 8#112 /cent put dup 8#116 /plus put 
dup 8#113 /period put dup 8#117 /bar put 
dup 8#114 /less put dup 8#120 /ampersand put 
dup 8#115 /parenleft put 


dup 8#132 /exclam put dup 8#140 /hyphen put 
dup 8#133 /dollar put dup 8#141 /slash put 
dup 8#134 /asterisk put 

dup 8#135 /parenright put 

dup 8#136 /semicolon put 

dup 8#137 /asciitilde put 


This program defines a general procedure for 
re-encoding the entire encoding vector for a font. The 
specific example demonstrated shows how to re-encode 
one of the built-in fonts according to the EBCDIC 
character set encoding. 


Local storage for the procedure ‘‘ReEncode.”’ 
““ReEncode’’ generates a new re-encoded font. It takes 
3 arguments: the name of the font to be re-encoded, a 
new name, and a new encoding vector. ReEncode copies 
the existing font dictionary, replacing the FontName and 
Encoding fields, then generates a new FID and enters 
the new name in FontDirectory with the definefont 
operator. The new name provided can later be used in a 
findfont operation. 

Get the dictionary of the font on which the re-encoded 
version will be based. 

Create a dictionary to hold the description for the 
re-encoded font. 

Copy all the entries in the base font dictionary to the 
new dictionary except for the FID and Encoding fields. 


Ignore the FID and Encoding pairs. 


Install the new name and the new encoding vector in the 
font. 

Now make the re-encoded font dictionary into a 
POSTSCRIPT font. Ignore the modified dictionary on the 
operand stack returned by the definefont operator. 


To illustrate how the ReEncode procedure is used, we 
will re-encode one of the built-in fonts to support the 
EBCDIC encoding. (The EBCDIC encoding used is 
referenced in ‘‘IBM System/360: Principles of 
Operation,’’ Appendix F.) The first step in doing this is 
to define an array containing that encoding. This array is 
referred to as an ‘‘encoding vector.’’ The encoding 
vector should be 256 entries long. Since the encoding 
vector is rather sparse, all the entries are initialized to 

“* notdef.’’ Those entries which correspond to characters 
in the EBCDIC encoding are filled in with the proper 
character name. The octal character code for the 
character is used to access the encoding vector. 
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; Program 17 / Re-encoding an Entire Font 


(continued) 


dup 8#153 /comma put Continuation of the EBCDIC encoding vector 
dup 8#154 /percent put definition. 


dup 8#155 /underscore put 
dup 8#156 /greater put 
dup 8#157 /question put 


dup 8#172 /colon put 
dup 8#173 /numbersign put 


dup 8#174 /at put 


dup 8#175 /quoteright put 
dup 8#176 /equal put 
dup 8#177 /quotedbl put 


dup 8#201 /a put 
dup 8#202 /b put 
dup 8#203 /c put 
dup 8#204 /d put 
dup 8#205 /e put 


dup 8#221 /j put 
dup 8#222 /k put 
dup 8#223 /I put 
dup 8#224 /m put 
dup 8#225 /n put 


dup 8#242 /s put 
dup 8#243 /t put 
dup 8#244 /u put 
dup 8#245 /v put 


dup 8#301 /A put 
dup 8#302 /B put 
dup 8#303 /C put 
dup 8#304 /D put 
dup 8#305 /E put 


dup 8#321 /J put 
dup 8#322 /K put 
dup 8#323 /L put 
dup 8#324 /M put 
dup 8#325 /N put 


dup 8#342 /S put 
dup 8#343 /T put 
dup 8#344 /U put 
dup 8#345 /V put 
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dup 8#206 /f put 
dup 8#207 /g put 
dup 8#210 /h put 
dup 8#211 /i put 


dup 8#226 /o put 
dup 8#227 /p put 
dup 8#230 /q put 
dup 8#231 /r put 


dup 8#246 /w put 
dup 8#247 /x put 

dup 8#250 /y put 
dup 8#251 /z put 


dup 8#306 /F put 
dup 8#307 /G put 
dup 8#310 /H put 
dup 8#311 /I put 


dup 8#326 /O put 
dup 8#327 /P put 
dup 8#330 /Q put 
dup 8#331 /R put 


dup 8#346 /W put 
dup 8#347 /X put 
dup 8#350 /Y put 
dup 8#351 /Z put 


Program 17 / Re-encoding an Entire Font 


dup 8#360 /zero put dup 8#365 /five put 

dup 8#361 /one put dup 8#366 /six put 

dup 8#362 /two put dup 8#367 /seven put 

dup 8#363 /three put dup 8#370 /eight put 

dup 8#364 /four put dup 8#371 /nine put 
pop 


/TR /Times-Roman findfont 10 scalefont def 

/Times-Roman /Times-Roman-EBCDIC EBCDIC 
ReEncode 

/TRE /Times-Roman-EBCDIC findfont 10 scalefont 
def 


TR setfont 
013 
{ /counter exch def 
40 counter 133 mul add 720 moveto 
( Octal Standard EBCDIC) show 
40 counter 133 mul add 720 10 sub moveto 
(Number Char Char) show 
} for 


/showstring 1 string def 
/counterstring 3 string def 


/yline 690 def 
/xstart 52 def 
01 255 
{ /counter exch def 
/charstring showstring dup O counter put def 
TR setfont xstart yline moveto 
counter 8 counterstring cvrs show 
xstart 42 add yline moveto 
charstring show 
TRE setfont xstart 86 add yline moveto 
charstring show 
/yline yline 10 sub def 
counter 1 add 64 mod 0 eq 
{ /xstart xstart 133 add def 
/yline 690 def 
} if 
} for 


showpage 


(continued) 


Remove the array from the operand stack. 


Print a table comparing the standard POSTSCRIPT 
character set encoding with the EBCDIC encoding. Set 
up the fonts to be used: Times Roman with the standard 
encoding and Times Roman with the EBCDIC 
encoding. 


Print each column heading in the standard Times 
Roman. 


String definitions used to show characters and numbers 
below. 


Print the table of character codes and corresponding 
characters. 

For each character code from 0 to 255, print the 
corresponding standard and EBCDIC characters. 


Print the character code in octal using evrs. 
Print the corresponding standard character. 
Print the corresponding EBCDIC character. 
Move down one line. 


If we have reached the 64th line, move over by a 
column and start at the top again. 
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Program 18 / Making Small Changes to Encoding Vectors 


/reencsmalldict 12 dict def 

/ReEncodeSmall 

{ reencsmalldict begin 
/newcodesandnames exch def 
/newfontname exch def 
/basefontname exch def 


/basefontdict basefontname findfont def 
/newfont basefontdict maxlength dict def 


basefontdict 
{ exch dup /FID ne 
{ dup /Encoding eq 
{ exch dup length array copy 
newfont 3 1 roll put } 
{ exch newfont 3 1 roll put } 
ifelse 
} 
{ pop pop } 
ifelse 
} forall 


newfont /FontName newfontname put 
newcodesandnames aload pop 


newcodesandnames length 2 idiv 
{ newfont /Encoding get 3 1 roll put} 
repeat 


newfontname newfont definefont pop 
end 
} def 


This program is slightly different from the previous 
program in that it keeps the original encoding vector of 
the font but it overwrites portions of it with the new 
encodings specified. This method is useful when 
re-encoding a font to contain accented (composite) 
characters. 


Local storage for the procedure ‘‘ReEncodeSmall.”’ 
““ReEncodeSmall’’ generates a new re-encoded font. It 
takes 3 arguments: the name of the font to be 
re-encoded, a new name, and an array of new character 
encoding and character name pairs (see the definition of 
the ‘‘scandvec’’ array below for the format of this 
array). This method has the advantage that it allows the 
user to make changes to an existing encoding vector 
without having to specify an entire new encoding 
vector. It also saves space when the character encoding 
and name pairs array is smaller than an entire encoding 
vector. 

Get the font dictionary on which to base the re-encoded 
version. 

Create a dictionary to hold the description for the 
re-encoded font. 

Copy all the entries in the base font dictionary to the 
new dictionary except for the FID field. 


Make a copy of the Encoding field. 


Ignore the FID pair. 


Install the new name. 

Modify the encoding vector. First load the new 
encoding and name pairs onto the operand stack. 
For each pair on the stack, put the new name into the 
designated position in the encoding vector. 


Now make the re-encoded font description into a 
POSTSCRIPT font. Ignore the modified dictionary 
returned on the operand stack by the definefont 
operator. 
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Boktryckarkonsten ar kallan till praktiskt taget all mansklig odling. 
Printing is the source of practically all human evolution. 

Den forutan hade de oerhérda framstegen inom vetenskap 

Without it the tremendous progress in the fields of science and 

och teknik inte varit mOjliga. 
technology would not have been possible. 


—VALTER FALK 


1 inch 
72 points 


Program 18 / Making Small Changes to Encoding Vectors 


/scandvec [ 
8#300 /Oacute 
8#311 /Adieresis 
8#321 /oacute 
8#322 /Ograve 
8#323 /Scaron 
8#324 /ograve 
8#325 /scaron 
8#330 /Edieresis 
8#331 /adieresis 
8#332 /edieresis 
8#333 /Odieresis 
8#334 /odieresis 
8#340 /Aacute 
8#342 /Aring 
8#344 /Zcaron 
8#347 /Eacute 
8#360 /aacute 
8#362 /aring 
8#364 /zcaron 
8#367 /eacute 
] def 


/ss { 72 yline moveto show 
/yline yline 36 sub def } def 


/Times-Roman /Times-Roman-Scand scandvec 
ReEncodeSmall 

/Times-Roman-Scand findfont 16 scalefont 
setfont 

/yline 500 def 

(Boktryckarkonsten \331r k\331 Ilan till praktiskt\ 
taget all m\331nsklig odling.) ss 

(Den f\334rutan hade de oerh\334rda framstegen\ 
inom vetenskap) ss 

(och teknik inte varit m\334jliga.) ss 

(\261VALTER FALk) ss 


/Times-ltalic findfont 14 scalefont setfont 
/yline 500 18 sub def 

(Printing is the source of practically all human\ 
evolution.) ss 

(Without it the tremendous progress in the\ 
fields of science and) ss 

(technology would not have been possible.) ss 
showpage 


(continued) 


Define an array of new character encoding and name 
pairs that will enable us to print the accented characters 
in the Scandinavian languages. The array is a series of 
encoding number and name pairs. The encoding number 
always precedes the character name. Since it contains 
pairs, there must be an even number of elements in this 
array. The encoding vector positions for these new 
characters have been chosen so that they do not actually 
replace any of the characters in the standard encoding. 


This procedure shows a string and then skips a line. 


Re-encode the standard Times Roman to include the 
accented characters for the Scandinavian Languages. 
Print some text with accented characters. Since the 
accented characters are in the upper half of the encoding 
vector we must refer to them by their octal codes. 
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6 point HOHOHOHO oaobocodoeofogohoiojokolomonopoqorosotouovowoxoyoz 
HOHOHOHO oaobocodoeofogohoiojokolomonopoqorosotouovowoxoyoz 


7: point HOHOHOHO oaobocodoeofogohoiojokolomonopoqorosotouovowoxoyoz 
HOHOHOHO oaobocodoeofogohoiojokolomonopoqorosotouovowoxoyoz 


& point HOHOHOHO oaobocodoeofogohoiojokolomonopogorosotouovowoxoyoz 
HOHOHOHO oaobocodoeofogohoiojokolomonopogorosotouovowoxoyoz 


Although the program to the right is device independent, this page was printed 
on a 300 dot per inch printer to emphasize the effect of rounding character widths. 


Program 19 / Changing the Character Widths of a Font 


/modwidthsdict 8 dict def 


/ModifyWidths 
{ modwidthsdict begin 
/uniqueid exch def 
/newwidths exch def 
/newfontname exch def 
/basefontname exch def 
/basefontdict basefontname findfont def 


/numentries basefontdict maxlength 1 add def 


basefontdict /UniquelD known not 
{ /numentries numentries 1 add def } if 
/newfont numentries dict def 
basefontdict 
{ exch dup dup /FID ne exch 
/FontBBox ne and 
{ exch newfont 3 1 roll put } 
{ pop pop } 
ifelse 
} forall 
/newFontBBox basefontdict /FontBBox get 
aload length array astore def 


newfont /FontBBox newFontBBox put 
newfont /FontName newfontname put 
newfont /Metrics newwidths put 
newfont /UniquelD uniqueid put 
newfontname newfont definefont pop 
end 
} def 


This program demonstrates how to change the character 
widths of a font. The specific example used shows how 
to round the character widths such that when the font is 
printed at a certain point size, the widths are an integral 
number of pixels in device space. 


Local storage for the procedure ‘‘ModifyWidths.”’ 
‘“*ModifyWidths’’ generates a new font. It takes 4 
arguments: the name of the font whose widths are to be 
changed, a new name, a dictionary containing the new 
widths and a unique ID. ModifyWidths copies the 
existing font dictionary, replacing the FontName field, 
adds a Metrics entry and then defines a new font. 

Get the dictionary of the font on which the new version 
will be based. 

Determine how large the new font dictionary should be. 
Make sure it is one entry larger than the previous one so 
that it has room for the Metrics entry. 

Make sure there is room for the UniquelID field. 


Create the new dictionary 

Copy all the entries in the base font dictionary to the 
new dictionary except for the FID and FontBBox (see 
explanation below) fields. 


Ignore the FID and FontBBox pairs. 


Due to a problem in POSTSCRIPT version 23.0 it is 
necessary to create an entirely new FontBBox entry 
rather than simply make a copy. A new array is created 
that contains the same values for the font bounding box 
as the base font has. 

Install the new font bounding box. 

Install the new name and widths in the font. 


Install the new unique ID. 

Now make the font dictionary with the new metrics into 
a POSTSCRIPT font. Ignore the dictionary returned on the 
operand stack by the definefont operator. 
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Program 19 / Changing the Character Widths of a Font 


/roundwidthsdict 13 dict def 
roundwidthsdict /showstring 1 string put 


/roundwidths 
{ roundwidthsdict begin 
/ptsize exch def 
/resolution exch def 
/fontname exch def 


/thefont fontname findfont def 
/newwidths thefont /CharStrings get length 
dict def 


/pixelsperem ptsize 72 div resolution mul def 
/unitsperpixel 1000 pixelsperem div def 


gsave 
nulldevice 


thefont 1 scalefont setfont 


/charcount 0 def 
thefont /Encoding get 
{ /charname exch def 
charname /.notdef ne 
{ /charwidth showstring dup 0 charcount 
put stringwidth pop 1000 mul def 
/multiples charwidth unitsperpixel div 
round cvi def 
/newcharwidth unitsperpixel multiples 
mul def 
newwidths charname newcharwidth put 
} if 
/charcount charcount 1 add def 
} forall 
grestore 
newwidths 
end 
} def 
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(continued) 
Local storage for the procedure ‘‘roundwidths.’’ 
String used for stringwidth operations. 


“‘roundwidths’’ takes three arguments: a POSTSCRIPT 
font name, a point size, and the resolution of the output 
device (in the x direction). The resolution is specified in 
pixels per inch. ‘‘roundwidths’’ returns a dictionary of 
rounded widths on the operand stack. The widths are 
rounded so that when they are scaled to the specified 
point size, they will be an integral number of pixels in 
device space. 


Get the font dictionary associated with the font name. 
Allocate a new dictionary for widths. Make it as large as 
necessary (there will never be more widths than there 
are CharStrings entries). 


Determine how many pixels are required for the given 
point size. 

Determine how many units (in the 1000 unit font space) 
map to one pixel. 


Perform the width calculations under the null device so 
that we will get the actual widths without rounding 
effects from the output device. 

Use a | unit high font; it speeds up the time required for 
determining the width of characters. 


Compute the current width for each character in the 
encoding vector. 


Get the current character width by performing a 
stringwidth operation and convert it to 1000ths. 


Store the newly computed width in the new dictionary 
of widths. 


Leave the new dictionary of widths on the operand 
stack. 


Program 19 / Changing the Character Widths of a Font 


/findresdict 4 dict def 
findresdict begin 
/tempmatrix matrix def 
/epsilon 0.001 def 
end 


/findresolution 
{ findresdict begin 
72 0 tempmatrix defaultmatrix dtransform 
/y exch def /x exch def 


x abs epsilon gt y abs epsilon gt and 
{ stop } 


{ x dup mul y dup mul add sart } 
ifelse 
end 
} def 


/showstring 

{ (HOHOHOHO oaobocodoeofogohoiojoko) show 

(lomonopogorosotouovowoxoyoz) show } def 
/res findresolution def 
/uid /Times-Roman findfont dup /UniquelD known 

{/UniquelD get}{pop 0} ifelse def 
/rwid /Times-Roman res 6 roundwidths def 
/Times-Roman /TR6 rwid uid 1 add ModifyWidths 
/Times-Roman findfont 6 scalefont setfont 
130 560 moveto showstring 
/TR6 findfont 6 scalefont setfont 
130 560 6 sub moveto showstring 
/rwid /Times-Roman res 7 roundwidths def 
/Times-Roman /TR7 rwid uid 2 add ModifyWidths 
/Times-Roman findfont 7 scalefont setfont 
130 500 moveto showstring 
/TR7 findfont 7 scalefont setfont 
130 500 7 sub moveto showstring 
/rwid /Times-Roman res 8 roundwidths def 
/Times-Roman /TR8 rwid uid 3 add ModifyWidths 
/Times-Roman findfont 8 scalefont setfont 
130 440 moveto showstring 
/TR8 findfont 8 scalefont setfont 
130 440 8 sub moveto showstring 
showpage 


(continued) 
Local storage for the procedure ‘‘findresolution.”’ 


Matrix used in computations. 
Error tolerance (see the ‘‘findresolution’’ procedure 
below). 


“findresolution’’ returns the resolution (in pixels per 
inch) in the x-direction of the device being printed on. 
Since there are 72 units per inch in the default user 
space, find out how many pixels those 72 units require 
in device space. 

If both the x and y components of the vector returned by 
the dtransform are larger than the error tolerance, 
refuse to continue because we are in some non-90 
degree rotated device space that wouldn’t make any 
sense in our computations. 

Leave the x-resolution on the operand stack. 


The following prints a comparison of rounded vs. 
non-rounded widths. 

This procedure simply shows a string of text. 

Get the resolution of the printing device. 

Find the original unique ID for the font we are using. If 
it doesn’t have a unique ID, use zero. 

Compute the rounded widths for 6 pt. Times Roman. 
Create a new font with the 6 pt. rounded widths. 

Print the normal 6 pt. Times Roman. 


Print the 6 pt. Times Roman with rounded widths. 


Repeat the same procedure for 7 point Times Roman. 


Repeat the same procedure for 8 point Times Roman. 
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*Every bullet has its billet. -William III 
*The bullet that will kill me is not yet cast. -Napoleon I 
*The ballot is stronger than the bullet. —Abraham Lincoln 


eEvery bullet has its billet. —William HI 
©The bullet that will kill me is not yet cast. -Napoleon I 
©The ballot is stronger than the bullet. -Abraham Lincoln 


@Every bullet has its billet. —William II 
®@The bullet that will kill me is not yet cast. -Napoleon I 
®The ballot is stronger than the bullet. -Abraham Lincoln 


Hieroglyphics are the root of letters. All 
characters were originally signs and all 
signs were once images. Human society, 
the world, man in his entirety is in the 
alphabet.O 


1 inch 
72 points 


Program 20 / Creating an Analytic Font 


10 dict dup begin 


/FontType 3 def 
/FontMatrix [.001 0 0 .001 0 0] def 


/FontBBox [50 0 760 700] def 


/Encoding 256 array def 
0 1 255 {Encoding exch /.notdef put} for 
Encoding 

dup (a) 0 get /smallbullet put 

dup (b) 0 get /mediumbullet put 

dup (c) 0 get /largebullet put 

(d) 0 get /openbox put 


/Metrics 5 dict def 

Metrics begin 
/.notdef 0 def 
/smallbullet 400 def 
/mediumbullet 520 def 
/largebullet 640 def 
/openbox 820 def 

end 


/BBox 5 dict def 

BBox begin 
/.notdef [0 0 0 0] def 
/smallbullet [50 200 350 500] def 
/mediumbullet [50 150 450 550] def 
/largebullet [50 100 550 600] def 
/openbox [60 0 760 700] def 

end 


/CharacterDefs 5 dict def 
CharacterDefs begin 
/.notdef { } def 


This program demonstrates how to define an entirely 
new font with analytic (geometric) character 
descriptions. 


Create a dictionary for the font. Leave room for the FID 
(fontID) entry. 

FontType 3 indicates that this is a user defined font. 
Since the font coordinate system used for this font is 
based on units of 1000 (as are the built-in fonts), specify 
a FontMatrix that transforms the 1000 unit system to a | 
unit system. 

This is the bounding box that would result if all the 
characters in the font were overlapped. 

Allocate storage for the encoding vector. 

Initialize all the entries in the encoding vector with 

“* notdef”’. 

Associate the small bullet character with the character 
code for a lowercase a, associate the medium bullet 
character with the character code for a lowercase b, and 
so on. 


Allocate storage for the character widths. 


Make sure there is a width for the ‘‘.notdef’’ character 
as well as for all the other characters in the font. 


Create a dictionary for storing information about the 
bounding boxes of the character descriptions. 
Make sure there is a bounding box for ‘‘.notdef”’. 


The bounding box for the open box is slightly larger 
than the path definition because it is stroked. Half of the 
strokewidth (60/2 =30) is added to bounding box of the 
outline. 


The ‘‘CharacterDefs’’ dictionary will hold the 
descriptions for rendering the characters. 

There should always be a description for the undefined 
character ‘‘.notdef’’ which does nothing. 
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Program 20 / Creating an Analytic Font 


/smallbullet 
{ newpath 
200 350 150 0 360 arc 
closepath 
fill } def 
/mediumbullet 
{ newpath 
250 350 200 0 360 arc 
closepath 
fill } def 
/largebullet 
{ newpath 
300 350 250 0 360 arc 
closepath 
fill } def 
/openbox 
{ newpath 
9030 moveto 90670 lineto 
730 670 lineto 730 30 lineto 
closepath 
60 setlinewidth 
stroke } def 
end 


/BuildChar 
{ 0 begin 
/char exch def 
/fontdict exch def 
/charname fontdict /Encoding get char get def 
fontdict begin 
Metrics charname get 0 
BBox charname get aload pop 


setcachedevice 


CharacterDefs charname get exec 
end 
end 
} def 
/BuildChar load 0 3 dict put 
/UniquelD 1 def 
end 


/BoxesAndBullets exch definefont pop 
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(continued) 


“‘smallbullet’’ defines a path for drawing a small bullet 
centered in the capheight of a font (in this case 
capheight=700 units). It also fills the path. 


“‘mediumbullet’’ is defined similarly to ‘‘smallbullet.’’ 


“‘largebullet’’ is defined similarly to ‘‘smallbullet.’’ 


“‘openbox’’ defines a path for drawing an outlined box 
that rests on the baseline and is as tall as the capheight 
(700 units). It strokes the path with a line whose 
thickness is 60 units out of 1000. 


Finished defining the characters. 


The procedure ‘‘BuildChar’’ is called every time a 
character from this font must be constructed. 

The character code and font dictionary are provided as 
arguments. 

Convert the character code to the corresponding name 
by looking it up in the encoding vector. 

Find the width of the character. 

Find the bounding box of the character and push it onto 
the stack. 

Using the setcachedevice operator enables the 
characters from this font to be cached. 

Find the procedure for rendering the character and 
execute it. 


Local storage for the procedure **BuildChar.”’ 
Create a unique identifier for the font. 
Done defining the font dictionary. 


Register the font; name it ‘‘BoxesAndBullets.”’ 


Program 20 / Creating an Analytic Font 


/bbfont /BoxesAndBullets findfont 16 scalefont def 
/textfont /Times-Roman findfont 16 scalefont def 


/ss { 72 yline moveto show 
/yline yline 16 sub def } def 


/showbullettext 
{ /oulletchar exch def 


bbfont setfont bulletchar ss 
textfont setfont 
(Every bullet has its billet. \261William III) show 
bbfont setfont bulletchar ss 
textfont setfont 
(The bullet that will kill me is not yet cast.) show 
(\261Napoleon |) show 
bbfont setfont bulletchar ss 
textfont setfont 
(The ballot is stronger than the bullet.) show 
(\261Abraham Lincoln) show 
} def 


/yline 650 def (a) showbullettext 
/yline 550 def (b) showbullettext 
/yline 450 def (c) showbullettext 


/yline 300 def 

textfont setfont 

(Hieroglyphics are the root of letters. All) ss 
characters were originally signs and all) ss 
signs were once images. Human society,) ss 
the world, man in his entirety is in the) ss 
alphabet.) ss 

bbfont setfont 

(d) show 


pts ee 


showpage 


(continued) 


The remainder of this program illustrates the use of the 
analytic font intermixed with one of the standard text 
fonts. 


This procedure shows a string and then gets ready to 
move down the page by one line. 


“‘showbullettext’’ enables us to conveniently show the 
same series of text but with different bullets each time. 
A string containing the bullet character is passed as an 
argument. 

Show the bullet character in the BoxesAndBullets font. 
Switch to the standard text font. 

Show the text immediately following the bullet. (Octal 
character 261 is an endash.) 


Now show three series of statements, each series with a 
different sized bullet. 


This example shows a common use of the ‘‘openbox’’ 
character: as the marker at the end of a paragraph. 


Place the ‘‘openbox’’ character at the end of the last 
line. 
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the. tendency of the best 
Typography has been and 
still should be in the path of 
simplicity. legibility. and 
orderly arrangement. 


theodore low. de. vinne 


1 inch 
72 points 


Program 21 / Creating a Bitmap Font 


9 dict dup begin 
/FontType 3 def 


/FontMatrix [1 0 0 1 0 0] def 
/FontBBox [1.28 1.2 -0.16 -0.24] def 


/Encoding 256 array def 

0 1 255 {Encoding exch /.notdef put} for 
Encoding 

dup 97 /aput dup 105/i put dup 116 / put 
dup 98 /b put dup 108 /l put dup 117 /u put 
dup 99/c put dup 109/m put dup 118 /v put 
dup 100 /d put dup 110 /n put dup 119 /w put 
dup 101 /e put dup 111 /o put dup 121 /y put 


dup 102 /f put dup 112 /p put dup 32 /space put 
dup 103 /g put dup 114 /r put dup 46 /period put 


dup 104 /h put dup 115 /s put 44 /comma put 


/BuildChar 
{ 0 begin 
/char exch def 
/fontdict exch def 


/charname fontdict /Encoding get char get def 


/charinfo fontdict /CharData get charname 
get def 

/wx Charinfo 0 get def 

/charbbox charinfo 1 4 getinterval def 

wx 0 charbbox aload pop setcachedevice 


charinfo 5 get charinfo 6 get true 


fontdict /imagemaskmatrix get 
dup 4 charinfo 7 get put 
dup 5 charinfo 8 get put 
charinfo 9 1 getinterval cvx 
imagemask 
end 
} def 


/BuildChar load 0 6 dict put 


This program demonstrates how to efficiently define an 
entirely new font with bitmap character descriptions. 


Allocate a dictionary for the font. Leave room for the 
FID (fontID). 

FontType 3 indicates that this is a user defined font to 
the POSTSCRIPT font machinery. 

Use the identity matrix for the font coordinate system. 
If all the characters in the font were overlapped, this 
would be the bounding box in the 1 unit character space. 
Allocate space for the encoding vector. 

Initialize all entries in the encoding vector with 

** notdef”’. 

Encode the lowercase letters and a few of the 
punctuation characters according to their ASCII 
encodings (decimal rather than octal codes have been 
used). Note that the lowercase letters j, k, q, x, and z are 
not encoded since we do not define character 
descriptions for them below (see ‘“CharData’’ 
dictionary). 


The procedure “‘BuildChar’’ is called every time a 
character from this font must be constructed. 

The character code and the font dictionary are provided 
as arguments to this procedure each time it’s called. 
Convert the character code to the corresponding name 
by looking it up in the encoding vector. 

Now retrieve the data for printing that character in the 
“*CharData’’ dictionary. 

Find the width of that character. 

Get the bounding box of the character. 

Using the setcachedevice operator enables the 
characters from this font to be cached. 

Get the width and height of the bitmap; set the invert 
boolean to true since the bitmaps specify the reverse 
image. 

Insert the x and y translation components into the 
general imagemask matrix. 


Get the hexadecimal string for printing the character in 


the form of an array, convert it into an executable object 
(procedure) and then print the bitmap image. 


Create local storage for the procedure “‘BuildChar.”’ 
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Program 21 / Creating a Bitmap Font 


/imagemaskmatrix [25 0 0 -25 0 0] def 


/CharData 25 dict def 
CharData begin 

/a[ .64 .04 0 .56 .56 13 14 -1.5 13.5 
<0F983FD870786038C018C018C018C01 
8C018C018603870783FD80F98> ] def 

/b | .64 .04 0 .56 .76 13 19 -1.5 18.5 
<C000CO000CO000CO00CO00CF80DFEOF 
070E030C018C018C018C018C018C018 
E030F070DFEOCF80> ] def 

/c[ .6 .040 .52 .56 12 14 -1.5 13.5 
<0F803FE070706030C000C000C000C00 
0C000C000603070703FE00F80> | def 

/d [.64 .04 0 .56 .76 13 19 -1.5 18.5<001800180 
018001800180F983FD870786038C018C018 
C018C018C018C018603870783FD80F98>]def 

/e[ .64 .040 .56 .56 13 14 -1.5 13.5 
<0F803FE070706030C018C018FFF8FFF 
8C000C000603070703FE00F80> | def 

/f[ .32 0 0 .28 .76 7 19 -0.5 18.5 <0E1E3830 
30FEFE303030303030303030303030> | def 

/g [.64 .04 -0.16 .56 .56 13 18 -1.5 13.5<0F983F 
D870786038C018C018C018C018C018C018 
603870783FD80F98601870303FFOOFCO>]def 

/h[ .6 .040 .52 .76 12 19 -1.5 18.5 
<C000CO000C000C000CO00CF80DFEOF070 
E030C030C030C030C030C030C030C030C 
030C030C030> | def 

/i[.2 .040 .12 .76 2 19 -1.5 18.5 <COCOC00000 
COCOCOCOCOCOCOCOCOCOCOCOCO0CO> | def 

A[.2 .040 .12 .76 2 19 -1.5 18.5<COCOCOCOCO 
COCOCOCOCOCOCOCOCOCOCOCOCO0CO> | def 

/m[.92 .04 0 .84 .56 20 14-1.5 13.5 
<CF0780DFCFEOFOF870E07030C06030 
C06030C06030C06030C06030C06030 
C06030C06030C06030C06030> ] def 

/n[ .6 .040 .52 .56 12 14-1.5 13.5 
<CF80DFE0F070E030C030C030C030C0 
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(continued) 


This is a template imagemask transformation matrix 
for this font. Since the bitmaps were designed to be 25 
pixels from baseline to baseline and they are the same 
resolution in the x and y directions, both the x and y 
scale factors are 25. The y scale factor is negative 
because the bitmap images are specified beginning with 
the upper left corner rather than the lower left corner. 
(See description of the imagemask operator in the 
POSTSCRIPT Language Reference Manual.) 


The first number in the character description is the 
width of the character in the 1 unit font space. The next 
four numbers are the bounding box for the character in 
the 1 unit font space. The next two numbers are the 
width and height of the bitmap in pixels. The next two 
numbers are the x and y translation values for the 
transformation matrix provided to the imagemask 
operator. The last entry in the description is the 
hexadecimal string for printing the bitmap. (See below.) 
Description of Data: Since the lowercase “‘i’’ is a 
relatively simple bitmap, it is used in this explanation. 
The bitmap for the ‘‘i’’ is 2 pixels (samples) wide and 
19 pixels high. In order to print the bitmap, a 
hexadecimal string describing the pixel-image is 
provided as the contents of the procedure argument to 
the imagemask operator. Each pair of characters in the 
hexadecimal string description of the “‘i’’ represents a 
row of pixels; each row of the bitmap image should be 
padded out to the next byte boundary to ensure proper 
results. The matrix provided to the imagemask 

operator describes how to map the unit square in user 
space to the bitmap image space. The x and y translation 
components vary from character to character and 
indicate how many pixels to shift by so that the bitmap 
is positioned properly within user space. The y 
translation component will always be the height of the 
bitmap minus any displacement factor (such as for 
characters with descenders). The x component is usually 
the equivalent of the left sidebearing of the character in 
pixels. Note that both the x and y translation 
components have half a pixel (.5) subtracted from their 
original values. This is done to avoid round-off errors 
induced by trying to position the bitmap image right on 
a device pixel boundary. 


Program 21 / Creating a Bitmap Font 


30C030C030C030C030C030C030> | def 

/o [| .64 .04 0 .56 .56 13 14 -1.5 13.5 
<0F803FE070706030C018C018C018C0 
18C018C018603070703FE00F80> ] def 

/p [64 .04 -.16 .56 .56 13 18 -1.5 13.5<CF80DF 


E0F070E030C018C018C018C018C018C018E 
030FO070DFEOCF80C000C000C000C000>)def 


/t [ 32 .04 0 .28 .56 6 14 -1.5 13.5 <DCFCEO 
COCOCOCOCOCOCOCOCO0C0CO> | def 
/s[ .3600 .32 .56 8 14 -0.5 13.5 


<3C7EC3C3C0E0781E0703C3C37E3C> | def 


/t[ .36 00 .32 .76 8 19 -0.5 18.5 <1818181818 
FFFF181818181818181818181818> ] def 

/u[.6 .040 .52 .56 12 14-1.513.5 
<C030C030C030C030C030C030C030C0 
30C030C030C070E0F07FB01F30> ] def 

N[.4800.44 .56 11 14 -0.513.5 
<C060C060C06060C060C060C0318031 
8031801B001B001BOOOEO00E00> | def 

/w[.88 00 .84 .56 21 14-0.5 13.5 
<C07018C07018C0701860D83060D830 
60D830318C60318C60318C601BO6CO 
1B06C01BO6CO0E03800E0380> | def 

/y [.48 0 -.16 .44 .56 11 18 -.5 13.5<CO60C060 
C06060C060C060C031 8031 8031801B001B 
001 FO00600060006000C000C000C00> def 

/period [.28 .08 0 .16 .1223-2.52.5 
<COCO0CO> ] def 

/comma [.32 0 -0.08 .2 .08 5 4 -0.5 1.5 
<183060C0> ] def 

/space [.2400001100 <>] def 

/.notdef [.24 0000100 <>]def 

end 
/UniquelD 2 def 
end 
/Bitfont exch definefont pop 


/Bitfont findfont 12 scalefont setfont 

72 500 moveto (the tendency of the best) show 
72 488 moveto (typography has been and) show 
72 476 moveto (still should be in the path of) show 
72 464 moveto (simplicity, legibility, and) show 

72 452 moveto (orderly arrangement.) show 
/Bitfont findfont 8 scalefont setfont 

72 436 moveto (theodore low de vinne) show 
showpage 


(continued) 


Pop the ‘‘CharData’’ dictionary. 

Create a unique identifier for the font. 

Done specifying the information required for the font. 
Register the font and name it ‘‘Bitfont.”’ 


The following lines illustrate the bitmap font in use. 


Just like any other POSTSCRIPT font, the bitmap font can 
be scaled to any size. 
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APPENDI? 


OPERATOR SUMMARY 


Operand stack manipulation operators 


any 
any, any, 
any 
any,.any,n 
any,,.any, n 
a, 4-g Nj 
F any,..any,, 
- any,..any,, 


mark obj,..obj,, 
mark obj,..obj,, 


pop — 

exch any, any, 

dup = any any 

copy any,..any, any,..any, 
index = any,..any, any, 

roll a1) mod n**29 4,4 8 modn 
clear + 

count | any,..any,n 


mark = mark 
cleartomark — 
counttomark = mark obj,..obj, n 


Arithmetic and math operators 


num, num, 
num, num, 
int, int, 
int, int, 
num, num, 
num, num, 


num 
num den 


add sum 

div quotient 
idiv quotient 
mod _ remainder 
mul product 
sub difference 


abs num, 

neg num, 
ceiling num, 
floor num, 
round num, 
truncate num, 
sqrt real 

atan angle 


discard top element 
exchange top two elements 
duplicate top element 
duplicate top n elements 
duplicate arbitrary element 
roll n elements up j times 
discard all elements 

count elements on stack 
push mark on stack 

discard elements down through mark 
count elements down to mark 


num, plus num, 
num, divided by num, 

integer divide 

int, mod int, 

num, times num, 

num, minus num, 

absolute value of num, 

negative of num, 

ceiling of num, 

floor of num, 

round num, to nearest integer 
remove fractional part of num, 
square root of num 

arctangent of num/den in degrees 
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angle 

angle 

base exponent 
num 


cos _ real 
sin real 
exp real 
In real 
log real 
rand — int 
srand — 
rrand — int 


Array operators 


int 

mark obj,..obj,,_; 
array 

array index 

array index any 
array index count 


array, index array, 
array 
any..any,,_, array 


array, array, 


array proc 


array array 
[ mark 

] array 

length — int 

get any 

put — 

getinterval subarray 


putinterval — 
aload = a)..a,_, array 
astore = array 


copy = subarray, 


forall — 


Dictionary operators 


int 


dict 
dict 
dict 
key value 
key 


key value 
dict key 

dict key value 
dict key 

key 


dict, dict, 
dict proc 


dict dict 


length — int 
maxlength _ int 
begin — 

end —- 

def —- 

load value 


store — 

get any 

put — 

known _ bool 

where dict true 
or false 

copy dict, 

forall — 

errordict dict 

systemdict dict 

userdict dict 
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cosine of angle (degrees) 

sine of angle (degrees) 

raise base to exponent power 
natural logarithm (base e) 
logarithm (base 10) 

generate pseudo-random integer 
set random number seed 

return random number seed 


create array of length int 

start array construction 

end array construction 

number of elements in array 

get array element indexed by index 

put any into array at index 

subarray of array starting at index for count 
elements 

replace subarray of array, starting at index 

by array» 

push all elements of array on stack 

pop elements from stack into array 

copy elements of array, to initial subarray of 
array, 

execute proc for each element of array 


create dictionary with capacity for int ele- 
ments 

number of key-value pairs in dict 
capacity of dict 

push dict on dict stack 

pop dict stack 

associate key and value in current dict 
search dict stack for key and return associ- 
ated value 

replace topmost definition of key 

get value associated with key in dict 
associate key with value in dict 

test whether key is in dict 


find dict in which key is defined 

copy contents of dict, to dict, 
execute proc for each element of dict 
push errordict on operand stack 
push systemdict on operand stack 
push userdict on operand stack 


- currentdict dict 
- countdictstack int 
array dictstack — subarray 


String operators 


int string _ string 
string length _ int 
string index get int 
string index int put — 
string index count getinterval — substring 
string, index string, putinterval — 
string, string, copy substring, 
string proc forall — 
string seek anchorsearch _ post match true 
or string false 
string seek search _ post match pre true 
or string false 
string token __ post token true 
or false 


push current dict on operand stack 
count elements on dict stack 
copy dict stack into array 


create string of length int 

number of elements in string 

get string element indexed by index 

put intinto string at index 

substring of string starting at index for count 
elements 

replace substring of string, starting at index 
by string, 

copy elements of string, to initial substring 
of string, 

execute proc for each element of string 


determine if seek is initial substring of string 
search for seek in string 


read token from start of string 


Relational, boolean, and bitwise operators 


any, any, eq__— bool 
any, any, ne bool 
num, |str, num,|str, ge___ bool 
num, |str, num,|str, gt bool 
num, |str, num,|str, le bool 
num, |str, num,|str, It bool 
bool, lint, bool,|int, and _bool,|int, 
bool, lint, not bool, |int, 
bool, lint, bool,|int, or bool,|int, 
bool, lint, bool,|int, xor — bool, |int, 
om true true 
- false false 
int, shift bitshift int, 


Control operators 


any exec — 
bool proc if —- 
bool proc, proc, ifelse — 
init incr limit proc for — 
int proc repeat — 
proc loop) — 


test equal 

test not equal 

test greater or equal 

test greater than 

test less or equal 

test less than 

logical | bitwise and 

logical | bitwise not 

logical | bitwise inclusive or 
logical | bitwise exclusive or 
push boolean value true 
push boolean value false 
bitwise shift of int, (positive is left) 


execute arbitrary object 

execute proc if bool is true 

execute proc, if bool is true, proc, if bool is 
false 

execute proc with values from init by steps 
of incr to limit 

execute proc int times 

execute proc an indefinite number of times 
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any 


array 


Type, attribute, and conversion operators 


any 

any 

any 

any 
array|file|string 
array|dict|file|string 
array|dict|file|string 
array|dict|file|string 
array|dict|file|string 
num|string 

string 
num|string 

num radix string 
any string 


File operators 


string, string, 


file 
file 


file int 
file string 
file string 
file string 
file string 
file string 
file 


file 
file 
file 
file 
string 


string 


exit — 

stop — 

stopped bool 
countexecstack _ int 
execstack = subarray 
quit — 

start — 


type name 
cvlit any 
cVvx any 


xcheck bool 
executeonly = array/file|string 
noaccess = array|dict/file|string 
readonly = array|dict/file|string 
recheck _ bool 


wcheck _ bool 


evi int 

cvn name 

cvr real 

cvrs — substring 


cvs — substring 


file file 


closefile — 
read int true 

or false 
write — 
readhexstring — substring bool 
writehexstring — 
readstring — substring bool 
writestring — 
readline — substring bool 
token _ token true 

or false 
bytesavailable int 
flush — 
flushfile — 
resetfile — 
status bool 
run — 
currentfile __ file 
print — 
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exit innermost active loop 
terminate stopped context 
establish context for catching stop 
count elements on exec stack 
copy exec stack into array 
terminate interpreter 

executed at interpreter startup 


return name identifying any’s type 
make object be literal 

make object be executable 
test executable attribute 
reduce access to execute-only 
disallow any access 

reduce access to read-only 
test read access 

test write access 

convert to integer 

convert to name 

convert to real 

convert to string with radix 
convert to string 


open file identified by string, with access 
string, 
close file 


read one character from file 
write one character to file 

read hex from file into string 
write string to file as hex 

read string from file 

write characters of string to file 
read line from file into string 


read token from file 

number of bytes available to read 

send buffered data to standard output file 
send buffered data or read to EOF 

discard buffered characters 

return status of file 

execute contents of named file 

return file currently being executed 

write characters of string to standard output 
file 


any 
any, .. any, 
any 
F any, .. any, 
biel 


stack | any, .. any, 


pstack Ff -any, .. any, 
prompt — 
echo —- 


Virtual memory operators 


save 


save save 
restore — 
vmstatus 


Miscellaneous operators 


proc 


bind proc 


null null 
usertime _ int 
version _ string 


Graphics state operators 


num 


hue sat brt 


red green blue 


gsave — 

grestore — 
grestoreall — 
initgraphics — 
setlinewidth — 
currentlinewidth num 
setlinecap — 


currentlinecap _ int 
setlinejoin  — 


currentlinejoin int 
setmiterlimit — 
currentmiterlimit §=num 
setdash -— 


currentdash array offset 
setflat —- 

currentflat num 
setgray — 


currentgray num 
sethsbcolor — 
currenthsbcolor hue sat brt 


setrgbcolor — 


level used maximum 


write text representation of any to standard 
output file 

print stack nondestructively using = 

write syntactic representation of any to 
standard output file 

print stack nondestructively using == 
executed when ready for interactive input 
turn on/off echoing 


create VM snapshot 
restore VM snapshot 
report VM status 


replace operator names in proc by 
operators 

push null on operand stack 

return time in milliseconds 
interpreter version 


save graphics state 

restore graphics state 

restore to bottommost graphics state 
reset graphics state parameters 

set line width 

return current line width 

set shape of line ends for stroke (O=butt, 
1=round, 2=square) 

return current line cap 

set shape of corners for stroke (O=miter, 
1=round, 2=bevel) 

return current line join 

set miter length limit 

return current miter limit 

set dash pattern for stroking 

return current dash pattern 

set flatness tolerance 

return current flatness 

set color to gray value from 0 (black) to 1 
(white) 

return current gray 

set color given hue, saturation, brightness 
return current color hue, saturation, bright- 
ness 

set color given red, green, blue 
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- currentrgbcolor red greenblue_ return current color red, green, blue 


freq angle proc setscreen — set halftone screen 
- currentscreen freqangle proc _ return current halftone screen 
proc settransfer — set gray transfer function 
- currenttransfer proc return current transfer function 


Coordinate system and matrix operators 


= matrix = matrix create identity matrix 
- initmatrix — set CTM to device default 
matrix identmatrix = matrix fill matrix with identity transform 
matrix defaultmatrix = matrix fill matrix with device default matrix 
matrix currentmatrix = matrix fill matrix with CTM 
matrix setmatrix — replace CTM by matrix 
t, ty translate — translate user space by (t,, ty) 
t, ty matrix translate = matrix define translation by (t,, b) 
8, 8 scale — scale user space by s, and Sy 
8, 8 matrix scale matrix define scaling by s, and Sy 
angle rotate — rotate user space by angle degrees 
angle matrix rotate matrix define rotation by angle degrees 
matrix concat —- replace CTM by matrix x CTM 
matrix, matrix, matrix, concatmatrix matrix, fill matrix, with matrix, x matrix, 
xy transform x’ y’ transform (x, y) by CTM 
x y matrix transform =x’ y’ transform (x, y) by matrix 
dx dy dtransform = dx’ dy’ transform distance (dx, dy) by CTM 
dx dy matrix dtransform = dx’ dy’ transform distance (dx, dy) by matrix 
x’y’ itransform xy inverse transform (x’, y’) by CTM 
x’ y’ matrix itransform xy inverse transform (x’, y’) by matrix 
dx’ dy’ idtransform dx dy inverse transform distance (dx’, dy’) by 
CTM 
dx’ dy’ matrix idtransform dx dy inverse transform distance (dx’, dy’) by 
matrix 
matrix, matrix, invertmatrix matrix, fill matrix, with inverse of matrix, 


Path construction operators 


- newpath —- initialize current path to be empty 
- currentpoint xy return current point coordinate 
xy moveto — set current point to (x, y) 
dx dy rmoveto  — relative moveto 
xy lineto  —- append straight line to (x, y) 
dx dy rlineto  — relative lineto 
xy rang, ang, are — append counterclockwise arc 
xy rang, ang, aren — append clockwise arc 
X41 V1 Xo Yor arcto xt, yt, xt, yt, append tangent arc 
X41 V1 Xo Vo Xg V3 curveto — append Bezier cubic section 
dx, dy, dx, dy, dx, dy. rcurveto — relative curveto 
- closepath — connect subpath back to its starting point 
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string bool 
move line curve close 


flattenpath 9 — 


reversepath — 
strokepath — 
charpath —- 

clippath — 
pathbbox Il, Il ur, ur, 
pathforall — 

initclip — 

clip —- 

eoclip — 


Painting operators 


width height bits/sample matrix proc 
width height invert matrix proc 


erasepage -— 
fill = - 

eofill —- 
stroke — 
image — 
imagemask — 


Device setup and output operators 


matrix width height proc 
matrix width height proc 


proc 


showpage —- 
copypage — 
banddevice — 
framedevice — 
nulldevice — 
renderbands — 


Character and font operators 


key font 
key 

font scale 
font matrix 


font 


string 
a, ay string 


C, Cy char string 


Cc, cy char a, ay string 
proc string 


string 


definefont font 
findfont font 

scalefont font’ 
makefont _ font’ 


setfont — 
currentfont font 
show — 

ashow — 


widthshow — 


awidthshow -— 
kshow — 


stringwidth = w, Wy 
FontDirectory dict 
StandardEncoding array 


convert curves to sequences of straight 
lines 

reverse direction of current path 
compute outline of stroked path 
append character outline to current path 
set current path to clipping path 

return bounding box of current path 
enumerate current path 

set clip path to device default 

establish new clipping path 

clip using even-odd inside rule 


paint current page white 

fill current path with current color 

fill using even-odd rule 

draw line along current path 

render sampled image onto current page 
render mask onto current page 


output and reset current page 

output current page 

install band buffer device 

install frame buffer device 

install no-output device 

enumerate bands for output to device 


register font as a font dictionary 

return font dict identified by key 

scale font by scale to produce new font’ 
transform font by matrix to produce new 
font’ 

set font dictionary 

return current font dictionary 

print characters of string on page 

add (a, a,) to width of each char while 
showing string 

add (c,, C,) to width of char while showing 
string 

combined effects of ashow and widthshow 
execute proc between characters shown 
from string 

width of string in current font 

dictionary of font dictionaries 

standard font encoding vector 
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Font cache operators 


Ww, W I Ml ur, Ur 


Yoo, 


WwW, W 


Errors 


y: 
num 


cachestatus _bsize bmax msize mmax csize cmax blimit 


setcachedevice -— 
setcharwidth — 
setcachelimit — 


dictfull 
dictstackoverflow 
dictstackunderflow 
execstackoverflow 
handleerror 
interrupt 
invalidaccess 
invalidexit 
invalidfileaccess 
invalidfont 
invalidrestore 
ioerror 

limitcheck 
nocurrentpoint 
rangecheck 
stackoverflow 
stackunderflow 
syntaxerror 
timeout 

typecheck 
undefined 
undefinedfilename 
undefinedresult 
unmatchedmark 
unregistered 
VMerror 
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return cache status and parameters 
declare cached character metrics 
declare uncached character metrics 
set max bytes in cached character 


no more room in dictionary 

too many begins 

too many ends 

exec nesting too deep 

called to report error information 
external interrupt request (e.g., control-C) 
attempt to violate access attribute 
exit not in loop 

unacceptable access string 

invalid font name or dict 

improper restore 

input/output error occurred 
implementation limit exceeded 
current point is undefined 

operand out of bounds 

operand stack overflow 

operand stack underflow 

syntax error in PostScript program text 
time limit exceeded 

operand of wrong type 

name not known 

file not found 

over/underflow or meaningless result 
expected mark not on stack 

internal error 

VM exhausted 


% comment character 24 
notdef 201, 209, 218, 221, 225 
== 13,15 

[ 86 

] 86 


Accented characters 202, 213 

add 4,9, 10, 15, 62 

Algol 130 

aload 83, 84, 86 

and 62 

Apple LaserWriter 119, 193, 217 
setscreen limitations 193 
font metrics problem 217 
interactive use 119 
preparing 119 

are 53,54, 60, 129, 135, 149 

aren 54, 60 

Arcs 
elliptical 139 

arcto 56, 57, 58, 60 

Arithmetic 8, 10 

array 77, 86 

Array index 78 

Array operators 78, 86 

Arrays 61,77 
executable 61, 65, 67, 133 

Arrows 


drawing 143 
ASCII 5, 91, 181, 225 
ashow 87 


astore 83, 86 
awidthshow 87 


begin 130 

Binary image 113 

Bitmap font 225 

Bitmap pattern 193 

Bitmaps 113 

bitshift 196 

Boolean object 65 

Bounding box 155, 159, 163, 221 
BuildChar 200, 222, 225 


Index 


Built-in fonts 201 
Bullet character 221 


Cap height 156, 159, 222 
ceiling 10 
Character 155 
bounding box 155 
composite 202, 213 
encoding 202 
Character code 94, 167, 209, 222 
convert 167 
octal 94, 209 
Character encoding 91 
Character operators 46, 100 
Character widths 
changing 217 
rounded 202 
charpath 97, 98, 99, 100, 102, 159, 163 
Circles 55 
Circular arcs 53 
printing text around 169 
clear 12,15 
clip 101, 102, 110, 185 
Clipping boundary 185 
Clipping path 3, 101 
closepath 21, 25,52, 149, 174 
Closepath 
implicit 141 
Comments 24 
Comparison operators 62 
Composite characters 202, 213 
Composite objects 78 
concatmatrix 194 
Conditional operators 65 
Control operators 60, 76 
Conversion operators 76 
Coordinate system 3, 47, 98, 207 
current 56, 68 
default 135 
device 47 
font 225 
mirror image 194 
stroke width 207 
user 3, 47, 95, 137, 139, 143 
Coordinate systems operators 60 
Coordinate transformations 
nested 135 
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copypage 185 exch 11, 12, 15 


Current coordinate system 56, 68 Executable arrays 65, 67, 133 
Current dictionary 28, 29, 130 executive 120 
Current font 36, 37, 41, 68, 84, 91, 155, 156, 39 exit 67, 69, 71, 76, 181 
Current page 2, 17, 68, 91, 93, 95, 97 exp 10 
Current path 2, 18, 19, 20, 23,51, 159, 163, 173, 189 
Current point 18, 19, 20, 24 FID 199, 205, 209, 213, 217, 221, 225 
Current transformation matrix 95, 137 fill 22, 23, 25, 32, 51, 53, 99, 129, 135, 141, 177 
currentfile 151, 153 findfont 37, 44, 46, 209, 217 
currentmatrix 137, 139, 143, 194 flattenpath 149, 159, 163, 173, 174 
currentpoint 52, 60,72, 159, 175 Font 35, 36, 199 
currenttransfer 153 anamorphic scale 155, 156 
Curves 53 bitmap 225 
curveto 53, 149, 159, 163, 174 character widths 217 
evrs 211 condensed 96 
evs 72,73, 76 coordinate system 225 
evx 225 creating anew 200 
creating an analytic 221 
Dash array 106 current 36, 37, 41, 68, 84, 91, 155, 156, 39 
Dash offset 106 expanded 96 
Dash patterns modifying existing 199 
centered 147 obliqued 97 
Data types 5 outline 205 
def 28, 29, 33, 44, 62, 130, 139 re-encoding 209 
Default user space 47, 193 transformation matrix 95 
defaultmatrix 193 user defined 200, 225 
definefont 199, 200, 205, 209, 213, 217 Font dictionary 36, 37, 44, 91, 95, 96, 97, 199, 200, 201, 202, 222 
Device coordinate system 47 Font operators 46, 100 
Device independence 193 Font transformations 94 
Device space 3, 47, 202, 217, 218 FontBBox 200, 217 
dict 130 FontDirectory 37,217 
Dictionary 5, 130 FontMatrix 200, 221 
createanew 132 FontName 200, 217 
current 28, 29, 130 FontType 200 
font 36, 37, 44, 91, 95, 96, 97, 200, 201, 202, 222 for 67, 68, 69, 76, 80, 98, 103, 135 
system 27 forall 69, 81, 83, 86, 167, 190 
user 27 ForTH 4 
Dictionary operators 33 Fractions 156, 163 
Dictionary stack 27, 130, 131, 139 setting 163 
div 10, 11,15 
dtransform 193,219 ge 62,76 
dup 12, 15,78 Geometric figures 1 
get 78, 79, 83, 86 
EBCDIC 201, 209, 210, 211 getinterval 181,225 
Ellipses 55, 139 Graphics 41 
Elliptical arcs 139 Graphics objects 1 
Encoding 200 types 1 
character 202 Graphics operators 1, 47 
vector 201 Graphics output operators 117 
Encoding accented characters 202 Graphics state 50,51 
Encoding vector 201, 221,225 saving 51 
making small changes 213 Graphics state operators 60, 110 
re-encoding 209 Graphics state stack 51 
eq 62, 67, 76 grestore 51,53, 60, 99, 135, 137, 139, 159, 189 
erasepage 185 gsave 51, 53, 60, 74, 99, 135, 137, 139, 159, 189 
Error tolerance 219 gt 62,76 
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Halftone 177 Mitered joins 105 


Halftone screen 177, 193, 195 mod 10, 15, 67 
angle 193 moveto 18, 19, 20, 21, 23, 25, 37, 40, 41, 45, 149, 174 
cell 195 mul 10, 15 
frequency 193 
spot function 193 ne 62,76 
Hexadecimal characters 197 neg 10 
Hexadecimal string 113, 151,225 newpath 18, 19, 25, 32 
Hexadecimal string notation 197 not 62 
notdef 201, 209, 218, 221, 225 
idiv 10,15 null 78 
if 62,75, 76 Null objects 78 
ifelse 65, 67, 76 
image 111, 112, 113, 114, 115, 117, 130, 151, 153, 200 Objects 
imagemask 225, 226 composite 78 
Images Octal codes 92, 94, 215 
printing 151 Operand stack 159, 194, 217, 218 
Imaging model 2 Operands 4,9 
Inch 29, 31 Operators 8,9, 10, 12 
initgraphics 185 arithmetic 10 
Interactive mode array 78, 86 
leaving 121 character 46, 100 
using 120 comparison 62 
Interactive operators 15 conditional 65 
invalidfont 200 control 60, 76 
itransform 189 conversion 76 
coordinate systems 60 
Kerning 88 dictionary 33 
Key 29, 44, 130, 133 font 46, 100 
kshow 87, 88, 90, 100 graphics output 117 
graphics state 60, 110 
Labeling graphs and illustrations 156 interactive 12, 15 
LaserWriter math 15 
See Apple LaserWriter output 25 
le 62,71, 76 painting 25 
length 79, 83, 86 path construction 25, 60, 100 
limitcheck 193 polymorphic 13, 83, 86, 117 
Line breaking algorithm 181 relational 76 
Line drawing 104 stack 12, 15, 86 
Lines string 76 
expanded and constant width 137 or 62 
lineto 18, 19, 20, 24, 25, 149, 174 Output device 
Literal 28 coordinate system 3 
loop 67, 69, 76, 181 Output operators 25 
Loops 67, 81 
It 62,76 Page description 1 
Painting operators 2, 25 
Macintosh 119 PaintType 205 
MacTerminal 119, 120 Pascal 130 
makefont 95,97, 100, 155, 156, 159, 163 Path 17 
mark 86 computing the length of 149 
Mark 5,78 placing text along an arbitrary 173 
Math operators 15 Path construction operators 25, 60, 100 
Metrics 217 Path operators 3 
Mirror image 194 pathbbox 159, 163 
Miter limit 105, 106, 189 pathforall 149, 173, 174 
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Pattern-fill 177 
Patterns 
filling an area with 193 
Picture element 111 
Pie chart 
drawing 189 
Pixel 111, 113, 115, 195, 202, 217, 218, 226 
Point sizes 38 
Polymorphic operators 83, 86, 117 
pop 12, 15,57, 84 
Poster 185 
Postfix notation 4 
PostScript | 
as a programming language 4 
datatypes 5 
Imaging model 2 
operators 8,9 
page description 1 
painting operators 2 
path operators 3 
stack 4,7 
PostScript arrays 77 
PostScript fonts 35, 36 
PosTScrIPT images 
overlapping 23 
PosTScrIPT interpreter 8, 27, 61, 120, 126, 130, 153, 200 
PostScript language 125 
programming example 125 
PostScript object 44 
PosTScrIPT objects 7 
delimiters of 8 
Printing 
fractions 163 
graphics 41 
small caps 159 
text 35,41 
typefaces 39 
Procedure 61 
Procedures 29, 30, 32 
concatenating 151 
defining 32 
pstack 13,15 
put 78, 83, 86, 92, 93 
putinterval 117 


quit 121 


Re-encoding a font 209 
readhexstring 151, 153 
Recursion 71 

Recursive graphics 73 
Relational operators 76 

repeat 52,56, 60, 61, 62, 67, 69 
Resolution 193,219 

rlineto 19, 24, 25 

rmoveto 20, 25 
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roll 12,15 
rotate 49, 60, 95, 129, 139, 170 


Sampled images 2 
scale 49, 60, 95, 97, 115, 129, 137 
Scale factor 159 
scalefont 37, 39, 44, 46 
Screen 
halftone 177 
search 177, 181 
setcachedevice 200, 222, 225 
setcharwidth 200 
setdash 106, 107, 109, 110, 130, 147 
setfont 37, 39, 44, 45, 46 
setgray 22, 25, 67, 190, 196, 200 
setlinecap 104, 105, 110 
setlinejoin 105, 110 
setlinewidth 21, 25, 104 
setmatrix 97, 137, 139, 143 
setmiterlimit 106, 110, 189 
setrgbcolor 200 
setscreen 193, 194 
settransfer 151, 153, 196 
Shapes 
repeated 135 
show 37, 40, 46, 73, 87, 169, 202 
showpage 19, 25,53, 185 
sin 10 
Small caps 155, 159 
printing 159 
Spot function 193 
sqrt 10 
Stack 4,7, 12, 130 
dictionary 27, 130, 131, 139 
graphics state 51 
operand 159, 167, 194, 217, 218 
Stack notation 9 
Stack operators 15, 86 
Standard encoding 91, 201 
string 72,76 
String 
character code 167 
hexadecimal 151, 225 
String index 93 
String objects 35 
String operators 76 
stringwidth 45, 46, 64, 170, 175, 177, 181, 218 
stroke 19, 20, 24, 25, 53, 99, 104, 129, 137, 141 
Stroke width 207 
StrokeWidth 205 
sub 4,9, 10,11, 15 
System dictionary 27 


Text 1,41 
along an arbitrary path 173 
circular 169 


vertical 167 
Transfer function 151, 153 
transform 174, 175, 189 
Transformation matrix 94, 95, 226 
imagemask 226 
current 95, 137 
font 95 
translate 47, 48, 60, 95, 139, 171, 185 
Translation 47 
Typeface 35, 39, 83, 155 
x-height 155 
Typeface family 35 
Typesetting 155 
Typography 155 


UniqueID 200, 205, 217 
Unit square 151 
User coordinate system 47, 95, 137, 139, 143 
User dictionary 27 
User space 3, 4, 47, 151, 167 
default 47, 193, 219 
translating 47 


Variables 28, 30, 44, 130 
local 130, 139 


Widths 

changing 217 
widthshow 87 
Word break 181 


x-height 155, 156, 159 
xor 62 
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Colophon 


Camera-ready copy for this book was created entirely with 
POSTSCRIPT and printed on a Linotron 101 at Adobe Systems 
Incorporated. The book was created with the aid of the Scribe 
Document Production System (a product of UNILOGIC, Ltd.) as a 
Scribe document definition. The illustrations were POSTSCRIPT 
program segments which Scribe integrated and placed on the 
pages along with the formatted text portions. 


Successive drafts of the book were processed with Scribe, each 
time generating a single POSTSCRIPT print file. The book was 
proofed when needed by printing the file on an Apple 
LaserWriter POSTSCRIPT printer. The final version was printed 
without modification on a Linotype Linotron 101 typesetter and 
delivered to Addison-Wesley. No manual paste-up of any kind 
was required. 


The typefaces used in this book were digitized by Adobe 
Systems Incorporated. The body type is Times Roman with 
Italic, Bold, and Bold Italic. The titles and examples are in 
Helvetica with Bold, Oblique, and Bold Oblique. The fixed 
width font used in some example output is Courier. Adobe’s 
Symbol font is also featured. 
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